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

1

Ответы и объяснения

2013-01-31T11:43:19+00:00

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.