var k, a, n: integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if (a mod 3=0) and (a mod 10=2) then k:=k+1;
readln(a);
end;
writeln(k);
end.
dmFyIGssIGEsIG46IGludGVnZXI7CmJlZ2luCms6PTA7CnJlYWRsbihhKTsKd2hpbGUgYTw+MCBkbwpiZWdpbgppZiAoYSBtb2QgMz0wKSBhbmQgKGEgbW9kIDEwPTIpIHRoZW4gazo9aysxOwpyZWFkbG4oYSk7CmVuZDsKd3JpdGVsbihrKTsKZW5kLg==