Задание 7 Урок 22

Задание 7 Урок 22

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

var
  N :integer ;

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

begin
    writeln('Vvedite chislo');
    readln(N);
    writeln('summa chisel ravna: ');
    writeln(recSum(N));
    readln();
end.   

консоль:

Vvedite chislo
1234
summa chisel ravna: 
10