СРОЧНО!!! Помогите пожалуйста с турбо паскаль, задание на тему циклы....
Как мне препод объясняла там должно быть for i:=1 to N do begin
P:P*(2*i)/(2*i+1)
end;
Вот часть которую нужно как то применить к этому заданию...
Как будет выглядеть весь код?)))

program PR;var  i,n:integer;  p:real;beginwrite('Введите N: ');readln(n);p:=1;for i:=1 to n do  p:=p*(2*i)/(2*i+1);writeln('P=',p);readln;end.