Задача в Паскале !

[d00ker]

Даны 2 натуральных числа, определить сумма цифр в каком больше? (определить функцию для расчета суммы цифр натурального числа).

[Sazary]

uses crt;
var a,b : integer;
function sumcifr(chislo : integer) : integer;
 var i,s : integer;
 begin
 s := 0;
 while chislo > 0 do
   begin
   i := chislo mod 10;
   s := s + i;
   chislo := chislo div 10;
   end;
 sumcifr := s;
 end;

begin
clrscr;
write('Vvedite a: ');
readln(a);
write('Vvedite b: ');
readln(b);
a := sumcifr(a);
b := sumcifr(b);
if a>b then writeln('Summa cifr a (',a,') > summy cifr b (',b,')')
else if a<b then writeln('Suuma cifr b (',b,') > summy cifr a (',a,')')
else writeln('Summy cifr a i b ravny (',a,')');

readln;
end.

[d00ker]

Ок! спасибо!