PROGRAM DAY_SO;
VAR x:ARRAY[1..1000] OF INTEGER;
n,s,k:LONGINT;
BEGIN
s:=0;
write('nhap so n '); readln(n);
FOR k:=1 TO n DO BEGIN
write('x[',k,']='); readln(x[k]);
s:= s+x[k];
END;
FOR k:=1 TO n DO
write(x[k]:3);
writeln;
write('tong cac phan tu la ',s);
readln;
END.