program perpangkatan;
uses wincrt;
var i,o,p:longint;
hasil:real;
begin writeln('a pangkat b');
      writeln('masukkan a=');readln(o);
      writeln('masukkan b=');readln(p);
      hasil:=1;
      for i:=1 to abs(p) do
      hasil:=o * hasil;
      if (p<0) then
      begin
      write('hasil=');
      write(1/hasil);
      end
      else
      begin
      write('hasil= ');
      write(hasil);
      end;
end.