Program P61;
 { Calcularea lui x la puterea n }
var x, y : real;
    n, i : 0..MaxInt;
begin
 write('x='); readln(x);
 write('n='); readln(n);
 y:=1;
 for i:=1 to n do y:=y*x;
 writeln('y=', y);
 readln;
end.