var
a, b, c: real;
count : byte;
begin
read (a, b, c);
count := 0;
if a < 0 then inc (count);
if b < 0 then inc (count);
if c < 0 then inc (count);
wrireln (count);
end.
var
a, b, c: real;
count : byte;
begin
read (a, b, c);
count := 0;
if a < 0 then inc (count);
if b < 0 then inc (count);
if c < 0 then inc (count);
wrireln (count);
end.