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

program product_;

var n: integer; / /число множителей

p: real; / /переменная для результата произведения

begin

writeln ('Введите число множителей n');

readln (n);

p : = 1;

write ('Результат умножения:');

for i:integer : = 1 to n do

p : = p * ((2 * i) / (2 * i + 1));

writeln (p : 6 : 6) / /вывод результата

end.