var x, N: integer;
    V, xx: longint;
begin
   read( x, N );

   V  := 1;
   xx := x;

   while N > 0 do
   begin
      if N mod 2<>0 then
         V := V * xx;

      xx := xx * xx;

      N := N div 2
   end;

   write( V )
end.

















var N,i: integer;
    Ntina: real;
    soucet: real;
begin
   N := 1;
   soucet := 1.00;

   while soucet=1.00 do
   begin
      Ntina := 1 / N;

      i := N;

      soucet := 0.00;
      while i > 0 do
      begin
         soucet := soucet + Ntina;
         i := i-1
      end;

      N := N+1
   end;
   write( N )

end.











var x: integer;
begin
   x := 1000;
   x := x*x

end.