uses crt;
var n,i,s:longint;a:array[1.........10000]of longint;
begin
        clrscr;
        write('Nhập số lượng phân tử: ');readln(n);
        for i:=1 to n do
                begin
                        write('Nhập phần tử thứ ',i,': ');readln(a[i]);
                        inc(s,a[i]);
                mik chỉ bt vậy thôi!!!

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.