Program P1;
uses crt;
var i, n: integer;
p: real;
begin
clrscr;
p:=1;
writeln ('Введите с клавиатуры целое положительное число n, после чего нажмите клавишу Enter.'
;
write ('n='
;
readln
;
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.