[ASK] Cara Menghitung Pangkat di Pascal Menggunakan Function

[PHPmaster]

Permisi gan, ane mau nanya nih...

Cara menggunakan function di pascal gimana ya?

Ane disuruh untuk menghitung pangkat dengan menggunakan pascal, tapi yang ane bisa cuma sampe sini aja gan..




Code:

program Menghitung_Pangkat;
uses crt;
var i,n,m: integer;
x: real;
begin
writeln('Program Menghitung Pangkat');
writeln('==========================');
writeln;
write('Masukkan Jumlah Pangkat : ');readln(n);

write('Masukkan Bil. Yang DiPangkat : ');readln(m);
writeln;
x:=1;
if (n>0) then
for i:= 1 to n do
x:=x*m
else if (n=0) then
x:=1
else
begin
n:=-1*n;
for i:= 1 to n do
begin
x:=x*(1/m);
end;
end;
writeln('Hasil Pangkat: ',x:6:2);
end.

Kalo pake fungsi gmn caranya ya gan? mohon pencerahannya...

Terima kasih sebelumnya...

</div>