функции

[malenkaya]

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

[Annabel]

используешь остаток от деления числа на 10 и таким образом суммируешь цифры

[Cody M.]

function DigitSum(x: integer): integer;
var
  sum: integer;
begin
  while x <> 0 do
  begin
    sum := sum + x mod 10;
    x := x div 10;
  end;
  result := sum;
end;

var
  a, b, asum, bsum: integer;

begin
  write('Введите число a: ');read(a);
  write('Введите число b: ');read(b);
  if DigitSum(a) > DigitSum(b) then writeln('Сумма цифр числа ', a, ' больше суммы цифр числа ', b)
  else writeln('Сумма цифр числа ', b, ' больше суммы цифр числа ', a);
end.