Вопрос Написать программу Р=1^2*2^2*...*n^2 Можете написать в Pascal, пожалуйста

[Виктор178]

Написать программу Р=1^2*2^2*...*n^2 Можете написать в Pascal, пожалуйста

 

[pul]

Var i,n,p: integer; begin p:=1; readln; for I:=1 to n do p:=p*sqr(I); writeln(p) end.

 

[rteqry]

for i:1 to n do begin result:=result*Sqr; end;