var
i,a,n:integer;
x:real;

function POWER(a,n:integer):real;
begin
if n=0 then POWER:=1 else
   if n<0 then POWER:=1/POWER(a,-n) else
   POWER:=a*POWER(a,n-1);
end;

begin
writeln('Programma risina a^n ievadiitajiem skaitliem a un n!');
write('? a=');
readln(a);
write('? n=');
readln(n);
if(abs(a+n)=0)then writeln('Nav definets!')else
begin
x:=POWER(a,n);
i:=0;
while(i<5)and(trunc(POWER(10,i)*x)<>POWER(10,i)*x) do
inc(i);
writeln(POWER(a,n):0:i);
end;
readln;
end.