{
  Calcula x elevado a y utilizando multiplicacoes sucessivas.
  O caso y=0 e' tratado separadamente.
}

program eleva;
var
   p, x, y	:  integer;
begin
   writeln;
   writeln('Calcula x^y');
   write('x: ');
   read(x);
   write('y: '); 
   read(y);

   writeln;
   write('x^y =');
   
   if (y = 0) then
      p := 1
   else
   begin
      p := x;
      while (y > 1) do
      begin
	 p := p * x;
	 y := y-1;
      end;
   end;
   writeln (p);
end.