var k, a: 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.
dmFyIGssIGE6IGludGVnZXI7CmJlZ2luCms6PTA7CnJlYWRsbihhKTsKd2hpbGUgYTw+MCBkbwpiZWdpbgppZiAoYSBtb2QgMz0wKSBhbmQgKGEgbW9kIDEwPTIpIHRoZW4gCms6PWsrMTsKcmVhZGxuKGEpOwplbmQ7CndyaXRlbG4oayk7CmVuZC4=