Решение линейного уравнения (неравенства) - PascalABC.NET

Формулировка задачи:

Написать программу, которая позволяет для любых a и b (числа могут быть положительными, отрицательными, нулевыми), введенных с клавиатуры, решить уравнение ax + b = 0. * Написать программу, которая позволяет для любых a и b (числа могут быть положительными, отрицательными, нулевыми), введенных с клавиатуры, решить неравенство ax + b > 0.

Решение задачи: «Решение линейного уравнения (неравенства)»

Листинг программы

var
  a, b : real;
begin
  write('введите a и b: ');
  readln(a, b);
  if (a = 0) and (b = 0) then writeln('уравнение имеет бесконечное множество корней')
    else if (a = 0) and (b <> 0) then writeln('уравнение не имеет корней')
      else
        writeln('уравнение имеет корень = ', (-b / a):6:2)
end.

Объяснение кода листинга программы

Ввод значений a и b с помощью функции readln
Проверка на равенство a и b нулю с помощью оператора =
Если условие (a = 0) и (b = 0) выполняется, то выводится сообщение уравнение имеет бесконечное множество корней
Если условие (a = 0) и (b <> 0) выполняется, то выводится сообщение уравнение не имеет корней
Если ни одно из условий не выполняется, то выводится сообщение с корнем уравнения, округленным до двух знаков после запятой, с использованием форматирования строк и оператора деления /