Verified answer

function sum(x:integer):integer;

begin

sum:=(x div 100)+(x div 10 mod 10)+(x mod 10);

end;

var a,b,sa,sb:integer;

begin

writeln('Введите 3 трехзначных числа:');

readln(a,b);

sa:=sum(a);

sb:=sum(b);

writeln('sa = ',sa,' sb = ',sb);

if sa>sb then writeln('Сумма цифр в числе ',a,' больше')

else if sb>sa then writeln('Сумма цифр в числе ',b,' больше')

    else writeln('Суммы цифр в числах равны');

end.

Пример:

Введите 3 трехзначных числа:

25 41

sa = 7 sb = 5

Сумма цифр в числе 25 больше