ИНФОРМАТИКА.
пишите развернуто
​

Program pr1;
var ch:integer; sum:byte;
(*рекурсия нахождения суммы цифр числа*)
function f_sum(ch:integer):integer;
begin
if ch=0 then f_sum:=0
else f_sum:=(ch mod 10) +f_sum(ch div 10);
end;
begin
writeln('Введите число');
readln(ch);
sum:=f_sum(ch);
writeln('Сумма цифр- ',sum);
end.