Решить в паскале :
определите какое из двух двухзначных чисел имеет наибольшую сумму цифр

var x,y: integer;

begin

readln(x,y);

if((x mod 10 + x div 10)>(y mod 10 + y div 10))

then write('число ',x,' имеет большую сумму цифр')

else write('число ', y,' имеет большую сумму цифр');

end.

Объяснение:

program N1;

var  a, b: integer;

begin

readln(a, b);

if (a div 10 + a mod 10) > (b div 10 + b mod 10) then

writeln ('Сумма цифр ', a, ' больше')

else

writeln ('Сумма цифр ', b, ' больше');

end.