Program pr;uses crt;Var i,p,n:integer;BeginWriteln('введите n');readln(n);p:=1;for i:=1 to n do p:=p*(i*i);Writeln('p=',p);readln;end.