var a:array[1..100000] of longint;
    i,s:longint;
begin
for i:=1 to 3 do
read(a[i]);
for i:=1 to 3 do
if a[i]>=90 then inc(s);
write(s);
end.
/**************************************************************
	Problem: 1678
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/