var
    i, k, n, d: integer;

begin
    readln(n);
    k := 0;
    
    for i := 1 to n do
    begin
        readln(d);
        { d:=Random(100); }
        if (d mod 10 = 3) then
            k := k + 1;
    end;
    
    writeln(k);
end.