в вашем условии максимальное число н. то есть оно может быть как двухзначное так и десяти. я сделаю для двухзначного:
var a,a1,a2,s: intger;
read (a);
a1: = a div 10;
a2: = a mod 10;
sum: = a1+a2;
writen (a1,sum);
в вашем условии максимальное число н. то есть оно может быть как двухзначное так и десяти. я сделаю для двухзначного:
var a,a1,a2,s: intger;
read (a);
a1: = a div 10;
a2: = a mod 10;
sum: = a1+a2;
writen (a1,sum);