Делаю все виды работ для ТУСУР! Обращайтесь!
Укажите строки с ошибками в описании рекурсивной функции.
function f(n: integer): integer;
begin f:=0;
if n>0 then
f:=f(n-1)+f
end;