Áo viết chương trình con Tính lũy thừa a^n

uses crt;
var a,n:longint;
{---Ham-luy-thua---}
function lt(a,n:longint):longint;
var i:longint;
begin
      lt:=1;
      for i:=1 to n do lt:=lt*a;
end;
{---Chuong-trinh-chinh---}
BEGIN
      clrscr;
      write('Nhap a: '); readln(a);
      write('Nhap n: '); readln(n);
      write(a,'^',n,'=',lt(a,n));
      readln;
END.

PROGRAM  Tên_chương_trình;

USES CRT;

CONST  ............;

VAR       ............;

PROCEDURE  THUTUC[(Các tham số)];

[Khai báo Const, Var]

BEGIN

            ..............

END;

FUNCTION  HAM[(Các tham số)]:<Kiểu dữ liệu>;

[Khai báo Const, Var]

BEGIN

            ..............

            HAM:=<Giá trị>;

END;

BEGIN {Chương trình chính}

            ...................

            THUTUC[(...)];

            ...................

            A:= HAM[(...)];

            ...................

END.