Program Menghitung Pangkat dengan Pascal

Nah ujian mata kuliah algoritma pemrograman pascal kali ini temen2 disuruh buat program pangkat… ya ni post sekedar buat share aja ya…buat yang mau belajar buat ujian besok (termasuk saya),,,he tapi gak tau juga besok saya dikasih tugas buat bikin program apa…. sapa tau sama,,,oke… cekidot..
uses wincrt;
var a,n:integer;
function pangkat(x:integer):real;
var hasil:real;
begin
hasil:=exp(x*ln(a)); {exp digunakan untuk menghitung nilai pangkat ke n}
pangkat:=hasil;
end;
begin
clrscr;
write(‘Masukkan angka:’);readln(a);
write(‘Dipangkatkan berapa ?’);readln(n);
write(‘Jadi’,a,’^',n,’ adalah ‘,pangkat(n):2:0);
readln;
end.