n = int(input('n ')) + 1
p = 1
for i in range(1, n):
p *= ((i + 2) ** 2) / 4
print(p)
Паскаль не знаю Program P1;
uses crt;
var i, n: integer;
p: real;
begin
clrscr;
p:=1;
writeln ('Введите с клавиатуры целое положительное число n, после чего нажмите клавишу Enter.');
write ('n=');
readln (n);
if n<=1 then writeln ('Ошибка: введенное Вами число не является положительным.') else begin
for i:=1 to n do p:=p*(sqr (i+2)/4);
writeln ('Результат произведения: ', p:0:2);
end;
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.