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