program phuongt;
uses crt;
var a, n: integer;
p: longint;
begin
clrscr;
write('Nhap a = '); readln(a);
write('Nhap n = '); readln(n);
if (a>0) and (a<10) and (n>0) and (n<10) then
begin
p:=exp(ln(a)*n);
write('P = ', p);
end
else write('a,n phai la so nguyen va nho hon 10. Nhap sai!');
readln
end.