Nhập dãy số n phần tử và tính tổng cách phân tử đó. P/s: mình cần một cách làm khác cách cơ bản nha (càng nhiều càng tốt)

program bai_giai;

uses crt;

var A:array[1..10000] of integer;

      n,i,t:integer;

begin

      clrscr;

      write('Nhap n: ');   readln(n);

      for i:=1 to n do

            begin

                  write('Nhap so thu ',i,': ');  readln(A[i]);

            end;

      t:=0;

      for i:=1 to n do t:=t+A[i];

      write('Tong cac phan tu la: ',t);

      readln;

end.

uses crt;
var a:array[1..100] of integer; n,i,s:integer;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      s:=0;
      for i:=1 to n do
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
            end;
      for i:=1 to n do s:=s+a[i];
      write('Tong: ',s);
      readln;
end.