var

 x, y: real;

 k: integer;

begin

 k := 0;

 Read(x, y);

 while (x <> 0) or (y <> 0) do

 begin

   if (x < 0) and (y > 0) then

     k := k + 1;

   Read(x, y)  

 end;

 Writeln(k);

end.