var i,s,n:longint;a:array[1..151] of int64;
begin
        read(n);
        s:=0;
        for i := 1 to n do
        begin
                read(a[i]);
        end;
        for i := 1 to n do
        begin
                if a[i] mod 3 = 0 then inc(s,a[i]);
        end;
        writeln(s);
end.

@Hômnaytôibịrob

Uses crt;
Var 
    n,i,s: LongInt; 
    a:array[1..150] of integer;
Begin
    repeat
    clrscr;
    writeln('Nhap so phan tu: ');read(n);
    until(n<=150);
    for i:=1 to n do
        begin
        write('Nhap phan tu thu ',i,': '); readln(a[i]);
        end;
    s:=0;
    for i:=1 to n do if a[i] mod 3=0 then s:=s+a[i];
    writeln('Tong cac phan tu chia het cho 3 la: ',s);
End.