Рекурсивная процедура или функция

[Homutova_Julia]

Помогите, пожалуйста, разработать рекурсивную процедуру или функцию, которая позволяет вычислить значение рекуррентной формулы F(0)=0, F(1)=2, F(k)=F(k-1)!/F(k-2)! k>1

[Leo08]

Function F(value:real);
Function fact(value:longint):longint;
Begin
If (value=0) or (value=1)then
result:=1
Else
Value:=value*fact(value-1);
End;
Begin
If value=0 then
Result:=0
Else
If value=1 then result:=2
Else
If value>1 then
Result:=F(fact(value-1))/F(fact(value-2));
End;