Viết chương trình tính tổng của dãy số nguyên a1,a2,...an

program tinhtong;

uses crt;

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

      n,i,t:integer;

begin

     clrscr;

     write('Nhap so luong phan tu n: ');   readln(n);

     t:=0;

     for i:=1 to n do

          begin

               write('A[',i,']= ');   readln(A[i]);

               t:=t+A[i];

          end;

     write('Tong la: ',t);

     readln;

end.

var A: array [1..500] of longint; n, i: integer; tong: real;
begin
    write('Nhap so luong phan tu: ');
    readln(n);
    for i:=1 to n do
    begin
        write('Nhap gia tri cho phan tu thu ',i,': ');
        readln(a[i]);
    end;
    for i:=1 to n do
        tong:=tong+a[i];
    write('Ket qua: Tong la: ',tong:0:0);
    readln
end.