Вопрос Помогите с программирование плз

[Dark_Horset]

Помогите написать программу

Вычислить произведение первых N сомножителей:
2/1*2/3*4/3*4/5*6/5*6/7....

 

[BroGamer]

примерно так function f(x: integer): single; begin if x<1 then result:=1 else if odd(x) then result:=((x+1)/x)*f(x-1) else result:=(x/(x+1))*f(x-1); end;