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.