program abc;
var a,b,c,s: integer;
begin
s:=0;
writeln ('Введите двузначное число');
readln(a);
b:=a div 10;
c:= a mod 10;
s:= b + c;
writeln ('Сумма цифр вашего числа = ',s);
end.
program abc;
var a,b,c,s: integer;
begin
s:=0;
writeln ('Введите двузначное число');
readln(a);
b:=a div 10;
c:= a mod 10;
s:= b + c;
writeln ('Сумма цифр вашего числа = ',s);
end.