Урок 21 Задача 7

Урок 21 Задача 7:

Дано натуральное число N. Вычислите сумму его цифр.
(При решении этой задачи нельзя использовать строки, списки, массивы (ну и циклы, разумеется). Разрешена только рекурсия и целочисленная арифметика. Используйте операцию получения остатка от деления, и операцию целочисленного деления).

function summa(a, n: integer): integer;
begin
  if n = 0 then
    result:= a
  else
    result:= summa(a + n mod 10, n div 10);
end;

begin
  writeln(summa(0, 501100)); // передаем начальное значение суммы цифр и само число
  readln();
end.