Algoritma: Perpangkatan

PROGRAM

 Perpangkatan;

USES

 wincrt;

VAR

 i, Bilangan, Pangkat : integer;

 Hasil : Longint;

BEGIN

write(' Inputkan Bilangan : '); readln( Bilangan);

write(' Inputkan Pangkat : '); readln(Pangkat);          

hasil := 1;

 For i := 1 to Pangkat do

Begin

 Hasil := Hasil * Bilangan;

 End;

 write('Hasil =', Hasil);

 readln;

END.