var kol,a,b,c:longint;
begin
read(a,b,c);
if a<0 then kol:=kol+1;
if b<0 then kol:=kol+1;
if c<0 then kol:=kol+1;
write(kol);
end.
var kol,a,b,c:longint;
begin
read(a,b,c);
if a<0 then kol:=kol+1;
if b<0 then kol:=kol+1;
if c<0 then kol:=kol+1;
write(kol);
end.