Дана рекурсивная функция:
Function f (n: integer): integer;
begin
if n=0
then f:=1
else f:=f(n-1)*n;
end;