ПОМОГИТЕ ПАСКАЛЬДаны два трехзначных естественных числа. Узнать, в каком из их

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 sagt;sb then writeln('Сумма цифр в числе ',a,' больше')

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

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

end.

Пример:

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

25 41

sa = 7 sb = 5

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