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

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

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

var x1,a1:integer;
function summ(x,a:integer):integer;
begin
  if x {div 10}>=10 then
    result:=a+summ(x div 10, (x mod 10))
  else
    result:=a+x;
end;

begin
  x1:=765;
  a1:=0;
  write(summ(x1,a1));
  readln();
end.