{$APPTYPE CONSOLE} var a, b: double; begin a := -0.0; b := +0.0; Writeln(a); Writeln(b); Writeln(a < b, ',', a = b, ',', a > b); Writeln(a < 0, ',', a = 0, ',', a > 0); Writeln(b < 0, ',', b = 0, ',', b > 0); end.