Viết chương trình pascal P= a^n biết a,n<=10

Cách dùng hàm exp,ln thì hơi khó hiểu, nên trong trường hợp a,n<=10 thì dùng cách thường dễ hiểu hơn

var a,n,i:byte;

      kq:int64;

begin

kq:=1;

write('Nhap a: '); readln(a);

write('Nhap n: '); readln(n);

for i:=1 to n do

kq:=kq*a;

write('P= ',kq);

readln;

end. 

Program BTT;
Uses crt;
Var a,n: byte;
    P: extended;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap n: '); Readln(n);
        P:=exp(n*ln(a));
        Write('P = ',p:0:0);
        Readln
End.