var i,n,sum:longint;
a:array[1..10000] of longint;
begin
write('Nhap n = ');
read(n);
for i:=1 to n do
begin
write('Nhap a[',i,'] = ');
read(a[i]);
sum:=sum+a[i];
end;
write('Tong cac phan tu cua mang la: ',sum);
readln
end.