Program m1;Var x,n,i:integer;beginReadln (x,n);For i:=1 to n do beginx:=x*x;end;Write ('x=',x);readln;end.
Program m1;
Var x,n,i:integer;
begin
Readln (x,n);
For i:=1 to n do begin
x:=x*x;
end;
Write ('x=',x);
readln;
end.