program qexpo;

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

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