Contoh program pascal looping menghitung pangkat:

Contoh program pascal looping pangkat:

uses wincrt;
var
i,x,y,hasil :integer ;
begin
clrscr;
write('nilai :');readln(x);
write('pangkat:');readln(y);
hasil:=1;
for i :=1 to y do
hasil:=hasil*x;
writeln('hasil : ',hasil);
readln;
end.

contoh hasil program: