Даны три целых числа. Определите, у которого из них сумма цифр больше. Подсчет суммы цифр организуйте через процедуру. PascalABC.NET

function digitSum(n: integer): integer;

begin

   while n > 0 do

   begin

        Result := Result + n mod 10;

       n := n div 10;

   end;

end;

var n1, n2, n3: integer;

begin

   n1 := 325;

   n2 := 50011;

   n3 := 29;

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

   if digitSum(n1) > digitSum(n2) then

       if digitSum(n1) > digitSum(n3) then

           write('1')

       else

           write('3')

    else

       write('2');

    writeln(' числа');

end.

Программа:

Pascal:

function summ(n: integer): integer;

begin

 n := abs(n);

 while n > 0 do begin

   result := result + n mod 10;

   n := n div 10;

 end;

end;

var

 n1, n2, n3: integer;

begin

 write('n1 = ');  readln(n1);

 write('n2 = ');  readln(n2);

 write('n3 = ');  readln(n3);

 if (summ(n1) > summ(n2)) and (summ(n1) > summ(n3)) then  

   writeln('Первое число')

 else

   if (summ(n2) > summ(n1)) and (summ(n2) > summ(n3)) then  

     write('Второе число')

   else

     write('Третье число');

end.