Em hãy VCT nhập mảng 30 số nguyên là số tiền quyên góp ủng hộ miền trung của các bạn lớp 11i. Em hãy tính tổng số tiền và on ra màn hình

program tong_tien;

uses crt;

var A:array[1..30] of longint;

      i,t:longint;

begin

      clrscr;

      t:=0;

      for i:=1 to 30 do

            begin

                  write('Nhap so tien ung ho cua ban thu ',i,': ');   readln(A[i]);

                  t:=t+A[i];

            end;

      write('Tong so tien quyen gop la: ',t);

      readln;

end.

uses crt;

var a: array[1..30] of integer;

i,n: integer;

s: longint;

begin

clrscr;

write ('nhap so luong nguoi ung ho: '); readln (n);

for i:=1 to n do

begin

write ('nhap so tienung ho cua nguoi thu ',i,': ');  readln (a[i]);

s:=s+a[i];

end;

writeln ('tong so tien ung ho la: ',s);

readln;

end.