Задача 6 урок 20

Задача 6 урок 20

Дано натуральное число N. Вычислите сумму его цифр.

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

begin
  writeln('Vvedite n');
  readln(n);
  writeln(Summ(n));
  readln();
end.