var
 a,b,c,n: real;
 begin
 writeln ('введи три числа');
 readln(a,b,c);
 n:=0;
 if a<0 then n:=n+1;
 if b<0 then n:=n+1;
 if c<0 then n:=n+1;
 if n>0 then writeln ('среди трех чисел  ', n, ' отрицательных')
 else
   if n=0 then writeln ('среди трех чисел нет отрицательных');
   end.