{
  Calcula x elevado a y utilizando multiplicacoes sucessivas.
  O caso y=0 nao precisa ser 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 =');
   
   p := 1;
   while (y > 0) do
   begin
      p := p * x;
      y := y-1;
   end;
   
   writeln (p);
end.