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.