var n,i,a,k: integer;
begin
readln(n);
k := 0;
for i := 1 to n do
begin
readln(a);
if (a mod 3 = 0)and(a mod 10 = 2) then
k := k + 1;
end;
writeln(k)
end.
dmFyIG4saSxhLGs6IGludGVnZXI7CmJlZ2luCiAgICByZWFkbG4obik7CiAgICBrIDo9IDA7CiAgICBmb3IgaSA6PSAxIHRvIG4gZG8KICAgICAgICBiZWdpbgogICAgICAgICAgcmVhZGxuKGEpOwogICAgICAgICAgaWYgKGEgbW9kIDMgPSAwKWFuZChhIG1vZCAxMCA9IDIpIHRoZW4gCiAgICAgICAgICBrIDo9IGsgKyAxOwogICAgICAgIGVuZDsKICAgIHdyaXRlbG4oaykKZW5kLg==