Program Perpangkatan

program perpangkatan;
uses wincrt;
var
   i,o,n:longint;
   hasil:real;
begin
     writeln('a pangkat b');
     writeln('masukkan a= ');readln(o);
     writeln('masukkan b= ');readln(n);

     hasil:=1;
     for i:=1 to abs(n) do
     hasil:=o * hasil;
     if (n<0) then
     begin
     write('hasil= ');
     write(1/hasil);
     end
     else
     begin
     write('hasil= ');
     write(hasil);
     end;
end.

Posted in: 1311100133, pascal, perpangkatan, program pascal, program pascal perpangkatan, turbo pascal