Написать рекурсивную подпрограмму вычисления суммы цифр входящих в состав числа.HELP!!!!!!!!!!!! ОТПРАВЛЮ 50 РУБ НА КИВИ СРАЗУ

var n:integer;

function f(x:integer):real;

begin

if x=1 then f:=1 else f:=x+f(x-1);

end;

begin

write('Введите число N ');

readln(n);

write('сумма равна ',f(n));

end.

лови бро затупил

7 937 082 20 07 киви