uses crt; var i,n,d:longint; a:array[1..100000]of longint; begin clrscr; write('n=');readln(n); for i:=1 to n Do begin write('a[',i,']=');readln(a[i]); end; d:=0; for i:=1 to n do if a[i] mod 3=0 then inc(d); writeln('Co ',d,' so la boi cua 3'); readln end.
