Program zadacha;
var a,n,i:integer;
Begin
read(a,n);
for i:=1 to n do
a:=a*a;
writeln(a);
end.
или как вариант
var a,n:integer;
x:=exp(ln(a)*n);
writeln(x);
Program zadacha;
var a,n,i:integer;
Begin
read(a,n);
for i:=1 to n do
a:=a*a;
writeln(a);
end.
или как вариант
Program zadacha;
var a,n:integer;
Begin
read(a,n);
x:=exp(ln(a)*n);
writeln(x);
end.