program qexpo;

var x : real;
   n  :  integer;
   
function exp(x: real; n : integer) : real;
var ilocz : real;
   i	  : integer;
begin
   ilocz := 1.0;
   for i := 1 to n do
	  ilocz := ilocz * x;
   exp := ilocz
end; { qexp }

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

   write('exp(',2,',',64,') sekund ='); writeln(exp(2,64):30:0);
   write('exp(',2,',',64,') lat ='); writeln(exp(2,64)/60/60/24/365.25:30:0);
   
end.