помогите решить задачу по программированию дано натуральное число N. Вычислить произведение первых N-сомножителей.
P=2/3*4/5*6/7*… *2N/2N+1
program pr;
uses crt;
var p:real; i:integer;N:integer;
begin
clrscr;
writeln('vvedite N');
readln(N);
p:=1;i:=1;
while i<=N do
p:=p*2*i/(2*i+1);
i:=i+1;
end;
writeln('p=',p:8:4);
readln;
end.
Буду благодарна, если отметите