lập trình tính và in ra msnf hình P = a^ n với a,n nhập từ màn hình và a,n là số nguyên dương và nhỏ hoen 10

Program somu;

uses crt;

var n,a,i:integer;

      P:longint;

begin

     clrscr;

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

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

     P:=1;

     for i:=1 to n do P:=P*a;

     write(a,'^',n,'= ',P);

     readln;

end.

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.