var
n, i, k, m: integer;
begin
k := 0;
readln(n);
for i := 1 to n do
readln(m);
if (m mod 7 = 5) and (m mod 7 = 10) then
inc(k)
end;
writeln(k);
end.
var
n, i, k, m: integer;
begin
k := 0;
readln(n);
for i := 1 to n do
begin
readln(m);
if (m mod 7 = 5) and (m mod 7 = 10) then
inc(k)
end;
writeln(k);
end.