var
x, y, z : real;
k : byte;
begin
read (x, y, z);
k := 0;
if x > 7 then inc (k);
if y > 7 then inc (k);
if z > 7 then inc (k);
writeln (k);
end.
