program tong;
uses crt;
var a:array[1..100] of integer;
      i,n,tong:integer;
begin
clrscr;
write('Nhap so phan tu mang: ');readln(n);
if (n<0) then begin
writeln('So nhap vao khong thoa man.');
write('Moi nhap lai: ');readln(n);
end;
tong:=0
for i:=1 to n do
     tong:=tong+a[i];
write('Tong cac phan tu cua mang: ',tong);
readln;
end.