viết chương trình nhập một dãy số sau đó tính trung bình cộng của các số đó? pascal nhaaaa

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

program tbc_dayso;
  uses crt;
    var a : array[1..100] of real;
        n, i : integer;
        s : real;
begin
    clrscr;
    write('Nhap n: ');readln(n);
    for i := 1 to n do 
         begin
        write('A[',i,']= '); readln(a[i]);
         end ;
    s := 0 ;
    for i := 1 to n do s := s + a[i];
    writeln('Trung binh cong cua day la: ',s/n:3:2);
    readln;
end .

uses crt;
var s,n,x,i:longint; 
begin
clrscr;
readln(n);
for i:=1to n do
begin
 readln(x);
 s:=s+x;
end;
write(s/n:0:2);
readln
end.