Pascal. Задача 7-2

function digits_sum(n : integer) : integer;
begin
  if n < 10 then
    result := n
  else
    result := n mod 10 + digits_sum(n div 10);
end;

var
  n : integer;
begin
  Write('Введите число: ');
  Readln(n);
  Writeln('Сумма цифр числа: ', digits_sum(n));
end.