Дано натуральное число N. Вычислить произведение первых N сомножителей: P=2/3*4/5*6/7*…*2N/2N+1- Pascal(Паскаль)

uses
  CRT;

var
  n, i: integer;
  pr: real;

begin
  ClrScr;
  write('N:= ');
  readln(n);
  pr := 1;
  for i := 1 to n do
    pr := pr * ((i * 2) / (2 * i + 1));
  write('Pr:=', pr);
  readkey

end.