задание 7 Урок 21

Дано натуральное число N. Вычислите сумму его цифр.
(При решении этой задачи нельзя использовать строки, списки, массивы (ну и циклы, разумеется). Разрешена только рекурсия и целочисленная арифметика. Используйте операцию получения остатка от деления, и операцию целочисленного деления).

задание 7 Урок 21

program project1;
 var
  md,dv,n:integer;
 function recSum(md,dv:integer):integer;
 var a:integer;
 begin
 recSum:= md;
 a:=0;
 if dv > 0 then
 begin
   a:= dv mod 10;
   dv:= dv div 10;
   result:= recSum(md,dv) + (a);
  end;
 end;
 begin
  n:= 345675;
  md:= n mod 10;
  dv:= n div 10;
  writeln(recSum(md,dv));  //в консоль - 30
  readln();
end.