Помогите пожалуйста очень надо

Question

Помогите пожалуйста очень надо

---

Answer 1

var i,n,p:integer; 
BEGIn 
write('N: '); 
Readln(n); 
p:=1; 
for i:=1 to n do 
begin 
p:=p*sqr(i); 
end; 
Writeln(p); 
Readln(); 
END.