Program Menghitung Pangkat

Program Menghitung_Pangkat;
Uses Wincrt;
Var i,n,m: integer;
    x: real;
Begin
  Writeln('Program Menghitung Pangkat');
  Writeln('==========================');
  Writeln;
  Write('Masukkan Jumlah Pangkat      : ');readln(n);
  Write('Masukkan Bil. Yang DiPangkat : ');readln(m);
  Writeln;
  x:=1;
  if (n>0) then
     For i:= 1 to n do
       x:=x*m
  else if (n=0) then
     x:=1
  else
    begin
      n:=-1*n;
      For i:= 1 to n do
        begin
        x:=x*(1/m);
        end;
    end;
  Writeln('Hasil Pangkat: ',x:6:2);
End.
Outputnya: