Bilangan Pangkat n

program pangkat_n;
uses crt;
var
bildasar,pangkat,bilawal,bilakhir : integer;
begin
clrscr;
writeln('Program Pangkat');
writeln;
write('Masukkan sebuah bilangan : ');readln(bildasar);
write('Masukkan pangkat awal    : ');readln(bilawal);
write('Masukkan pangkat akhir   : ');readln(bilakhir);
writeln;
writeln;
writeln('Pangkat       Kelipatan ',bildasar);
writeln;
for pangkat := bilawal to bilakhir do
 begin
  write(pangkat:4);
  writeln(exp(ln(bildasar)*pangkat):20:0);
 end;
writeln;
writeln('Created by : Unknown');
write('Modified by : Sylvert Tahalea');
readkey;
end.