Question

С клавиатуры вводится двузначное число a. Найти сумму его цифр.

Answer 1

var a,a1,a2,sum:integer;

begin

readln(a);

sum:=0;

a1:=a mod 10;

a2:=a div 10;

sum:=a1+a2;

writeln(sum);

end.