Решение линейных уравнений - Pascal ABC

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

В школе задали сделать программу, которая будет считать линейные уравнения. Но я по просту не понимаю логики... Поэтому прощу помощи, у кого есть немного свободного времени и желание помочь. Буду очень благодарен. Поставлю спасибо и +реп)))) Линейное уравнение вида a*x+b=0.

Решение задачи: «Решение линейных уравнений»

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

uses Crt;
var a, b, x : real;
 
BEGIN
     ClrScr;
     Write('Введите число a = ');
     ReadLn(a);
     Write('Введите число b = ');
     ReadLn(b);
     
     if ((a=0) and (b=0)) then
        WriteLn('Уравнение имеет бесконечное множество решений: х*0 + 0 = 0.')
     else if ((a=0) and (b<>0)) then
        WriteLn('Уравнение не имеет решений.')
     else if (a<>0) then
     begin
          x:= -(b/a);
          WriteLn('x = ', x);
     end
END.

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

В первой строке кода используется библиотека Crt, которая необходима для работы с функциями ввода-вывода в языке Pascal ABC.
Далее, объявляются две переменные типа real: a и b. Они будут использоваться для хранения введенных пользователем чисел.
Строка с командой ClrScr очищает экран перед вводом данных.
В следующих двух строках происходит ввод значений переменных a и b с помощью функции ReadLn.
Затем, с помощью условного оператора if-else, проверяется равенство переменных a и b нулю.
Если обе переменные равны нулю, то выводится сообщение о том, что уравнение имеет бесконечное множество решений.
Если переменная a равна нулю, а переменная b не равна нулю, то выводится сообщение о том, что уравнение не имеет решений.
Если переменная a не равна нулю, то вычисляется значение переменной x как отрицательное частное от деления переменной b на a.
Полученное значение переменной x выводится на экран с помощью функции WriteLn.
Код завершается командой END.