var

a,b,c,d : real;

haveNegative : boolean;

begin

haveNegative := false;

readln(a,b,c,d);

if a < 0 then

   haveNegative := true;

if b < 0 then

   haveNegative := true;

if c < 0 then

   haveNegative := true;

if d < 0 then

   haveNegative := true;

if haveNegative then

   writeln('Cреди данных чисел есть отрицательное!')

else

   writeln('Среди данных чисел отрицательного нет!');

end.