посчитайте , поберегите мои нервы.

var

a,k,n,i:integer

begin

k:=0;

readln(n);

for i:=1 to n do

begin;

readln(a);

if (a mod 3=0)

then k:=k+1;

end;

writeln(k);

end.