program phuongt;
uses crt;
  var A: array[1..500] of integer;
        i, n, s: integer;
begin
       clrscr;
       write('Nhap n = '); readln(n);
       s:=0;
       for i:=1 to n do
       begin
               write('A[', i, '] = '); readln(A[i]);
               if A[i] mod 3 = 0 then s:=s+A[i];
       end;
       write('Tong = ', s);
       readln
end.

program chia_het_3;

uses crt;

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

      n,i,t:integer;

begin

      clrscr;

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

      t:=0;

      for i:=1 to n do

            begin

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

                  if A[i] mod 3=0 then t:=t+A[i];

            end;

      write('Tong cac so chia het cho 3 la: ',t);

      readln;

end.