program project1;
{$APPTYPE CONSOLE}
var a,b,c:real;
    m:integer;
begin
  writeln('vvedit tru chisla');
  readln(a,b,c);
  if a<0 then m:=0   else m:=1;
  if b<0 then m:=m+0 else m:=m+1;
  if c<0 then m:=m+0 else m:=m+1;
  writeln(m,' dodatnih thisla');
  readln;
end.