uses crt;
var n,i,s:longint;a:array[1..1000000]of longint;
begin
clrscr;
write('Nhap so luong phan tu: ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
inc(s,a[i]);
end;
write('Day so vua nhap: ');
for i:=1 to n do write(a[i],' ');
writeln;
write('Tong cac so trong day: ',s);
readln;
end.