Напишите рекурсивную функцию вычисления суммы цифр натурального числа. Формат входных данных На вход ваша программа получает одно натуральное число n (n

Varn: int64;
 function f(n: int64): int64;
begin
  if(n > 0) then f := f(n div 10) + (n mod 10);
end;
 begin
  readln(n);
write(f(n));
end.