CONTOH PROGRAM PERPANGKATAN

PANGKAT

program perpangkatan;

uses wincrt;

var

   i,o,p,hasil:longint;

begin

     writeln ('a pangkat b');

     write('masukkan a='); read (o);

     write ('masukkan  b=');read (p);

     hasil:=1;

     for i:=1 to abs(p) do

     hasil:=o*hasil;

      if (p<0) then

      begin

       write (1/hasil);

       end

     else

     begin

     write('hasil= ', hasil);

     end

    

end.