source code pascal menghitung pangkat

program Bilangan_pangkat;
uses wincrt;
var
a,b,hasil,i :integer;
begin
ClrScr;
write(’ Nilai Pokok (a)= ‘);
readln(a);

write(’ Nilai Pangkat (b)= ‘);
readln(b);

hasil:=1;

for i:=1 to b do
begin
hasil:=hasil*a;
end;

writeln;
writeln(’ Maka, Hasil kali a sampai b= ‘,a,’ pangkat ‘,b);
write(’ = ‘);
writeln(hasil);
end.