Tính ham lũy thừa a^n ở đây a thực và n là số tử nhiên được nhập từ bàn phím

program oken;
uses crt;
var i,n: longint;
    a,s: real;
begin
        clrscr;
        write('Nhap so nguyen a: '); readln(a);
        write('Nhap so mu cua a: '); readln(n);
        s:=1;
        for i:=1 to n do
                s:=s*a;
        write(a:0:3,'^',n,': ',s:0:3);
        readln;
end.

uses crt;
var i,n:longint; a,s:real;
begin
clrscr;
   write('Nhap so nguyen a: '); readln(a);
   write('Nhap so mu cua a: '); readln(n);
   s:=1;
   for i:=1 to n do
   s:=s*a;
   write(a:4:2,'^',n,': ',s:4:2);
   readln
end.

Nếu đề bài có yêu cầu sử dụng chương trình con thì mình sửa lại nhá :D