program qexpo;

var x : real;
   n  :  integer;
   
function qexp(x: real; n : integer) : real;
var ilocz, px : real;
   pn		  :  integer;
begin
   ilocz := 1.0;
   px := x;
   pn := n;
   while pn<> 0 do
	  if pn mod 2 = 0 then
	  begin
		 px := px * px;
		 pn := pn div 2
	  end
	  else
	  begin
		 ilocz := ilocz * px;
		 pn := pn -1
	  end;
   qexp := ilocz
end; { qexp }

begin
   write('x='); readln(x);
   write('n='); readln(n);
   write('exp(',x:10:5,',',n,')='); writeln(qexp(x,n):10:5);
end.