Question

даны 4 вещественных числа,выведите на экран те из них,значение которых отрицательны.срочно нужно!!!

Answer 1

var

  a, b, c, d : real;

begin

  read (a, b, c, d);

  if a < 0 then writeln (a);

  if b < 0 then writeln (b);

  if c < 0 then writeln (c);

  if d < 0 then writeln (d);

end.