Разработать рекурсивный алгоритм

[lucky]

Разработать рекурсивный алгоритм и программу решения задачи, в которой вычислить : f(n)=(n+2)!/(n+4)!. Исходные данные вводятся с клавиатуры. Программа должна быть реализована с использованием пользовательского библиотечного модуля.

[OCTAGRAM]

f(n)=1/((n+3)*(n+4)), и ради этого новый модуль?

[lucky]

да. можешь проверить или правильно?
исправь плиз если что не правильное найдешь, плюс за помощь обеспечен)

Модуль.
unit factorial;
interface
function Fac(n:longint):longint;
function F(n:longint):real;
implementation
function Fac(n:longint):longint;{нахождение факториала}
begin
if n=1 then Fac:=1
else Fac:=n*Fac(n-1);
end;
function F(n:longint):real;{вычисление}
begin
F:=Fac(n+2)/(Fac(n+4));
end;
end.

Программа.
uses crt,factorial;
var n:longint;
begin
clrscr;
repeat
write('Введите число от -1 до 8 n=');
readln(n);
until(n>=-1)and(n<=8);
write('F=',F(n):0:5);
readln;
end.

[OCTAGRAM]

if n=1 then Fac:=1

заменить на

if n<=1 then Fac:=1

ибо 0! = 1

[lucky]

спасиб)))))