nhap vao một mảng in ra số và tính tổng các phần tử trong mảng đó

Program Hotboy;

Uses crt; 

Var a:array[1..100] of integer ;

S,n,i :real;

Begin

Clrscr ;

Writeln('nhap so n'); 

Readln(n);

For i:=1 to n do

Begin

Write('A[',i,']'); 

Readln(A[i]);

End;

For i:=1 to n do

$S:=S+A[i];$

Tb:= S/n

Write('tong la',S);

Readln

End.

program oken;
uses crt;
var a: array [1..100] of integer;
    s,i,n:longint;
begin
        clrscr;
        write('nhap so phan tu cua mang: '); readln(N);
        for i:=1 to n do
                begin
                        write('a[',i,']: ');
                        readln(a[i]);
                        s:=s+a[i];
                end;
        writeln('Tong cac phan tu trong mang: ',s);
        readln;
end.