giúp mình nhé viết chương trình nhập n số thực từ bàn phím vào một mảng tính trung bình cộng của các số này mình cảm ơn nhé>3

uses crt;
var a:array[1..100]of integer;
i,n,t,max:integer;
tbc:real;
begin
clrscr;
write('nhap so phan tu:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;

Program BTT;
Uses crt;
Var A: array[1..100] of extended;
    n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                s:=s+A[i];
        End;

        Write('TBC = ',s/n:0:2);
        Readln
End.