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