Program Menghitung_Pangkat

Labels: kumpulan program pascal

//fandy adam e1e109053
Program Menghitung_Pangkat;
Var
   n,m : integer;
   i,hasil : integer;
Begin
     write('Masukkan angka : '); readln(n);
     write('Masukkan pangkat : '); readln(m);

     hasil:=1;
     for i:=1 to m do
         hasil:=n*hasil;
     writeln('Hasil ',n,' pangkat ',m,' adalah ',hasil);

     readln;
End.