Program BTH;
uses crt;
var a:array[1..100000] of longint;
s,i,n:longint;
Begin
        clrscr;
        Write('Nhap n: ');readln(n);
        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;
        writeln('Tong day so chia het cho 3 co trong day la: ',s);
        readln;
end.

program oken;

uses crt;

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

      i,n,sum:longint;

begin

clrscr;

write('nhap so luong cua mang: '); readln(n);

sum:=0;

for i:=1 to n do

   begin

       write('a['',i,']: '); readln(a[i]);

       if (a[i] mod 3=0) then sum:=sum+a[i]);

   end;

writeln('tong cac so chia het cho 3 trong mang: ',sum);

readln;

end.