Составить программу решения линейного уравнения ax + b = 0, где а не равно 0.

begin
  var (a,b):=ReadReal2('Введите а и b:');
  Writeln('Кoрень уравнения вида ax+b=0 равен ',-b/a)
end.


Введите а и b: -2.5 6
Кoрень уравнения вида ax+b=0 равен 2.4