Cara membuat bilangan berpangkat menggunakan free pascal

Bagi kalian yang sedang belajar pascal, ini caranya membuat bilangan berpangkat menggunakan rekursi di free pascal...

SEMOGA BERMANFAAT...

uses crt;
var a, b, c, d:integer;
function pangkat(i,j :integer):int64;
begin

        if (j=0) then
        begin
                pangkat:=1;
        end else
                pangkat:= i * pangkat(i,j-1);
        end;


begin
        clrscr;
        writeln('Masukkan nilai a pangkat b');
        write('Masukkan nilai a= ');
        readln(a);
        write('Masukkan nilai b= ');
        readln(b);
        d:=pangkat(a,b);
        writeln;

        write (a,'Pangkat',b,'=');
        write(d);
        readkey;
end.


ini hasilnya..