PROGRAM MENGHITUNG BILANGAN PANGKAT MENGGUNAKAN BAHASA PEMROGRAMAN PASCAL

uses wincrt;
var hasil,i,bil,pangkat:integer;
begin
     clrscr;
     write('Input Bilangan = ');
     readln(bil);
     write('Input pangkat  = ');
     readln(pangkat);
     hasil:=1;
     write(bil,' ^ ',pangkat,' = ');
     for i:=1 to pangkat do begin
         if i<> pangkat then write(bil,' * ') else write(bil,' = ');
         hasil:=hasil*bil
     end;
     write(hasil);
end.