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

//Pascalvar  i, n: integer;  p: real;begin  p := 1;  readln(n);  for i := 1 to n do p := p * 2 * i / (2 * i + 1);  writeln(p);end.