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

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

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

program u20z7;
var n:integer;

function fun(m:integer):integer;
var a:integer;
begin
  if (m<10) then
    result:=m
  else
    result:=m mod 10 + fun(m div 10);
end;

begin
  writeln('vvedite n');
  readln(n);
  writeln(fun(n));
  readln();
end.