Решить линейное уравнение a*x=b - Turbo Pascal

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

Здравствуйте, помогите решить контрольную по Pascal 4) Решить линейное уравнение a*x=b

Решение задачи: «Решить линейное уравнение a*x=b»

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

var
  a, b, x : real;
begin
  write('введите a и b: ');
  readln(a, b);
  if (a = 0) and (b = 0) then writeln('уравнение имеет бесконечное количество решений') else
    if (a = 0) then writeln('корней нет') else
    begin
      x := b / a;
      writeln('x =  ', x:0:4)
    end;
  readln
end.

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

В начале объявляются переменные a, b и x типа real.
Затем происходит чтение значений переменных a и b с помощью функции readln.
Далее проверяется условие a = 0 и b = 0. Если оно выполняется, то выводится сообщение о том, что уравнение имеет бесконечное количество решений.
Если условие a = 0 выполняется, выводится сообщение о том, что корней нет.
Если ни одно из условий не выполняется, то вычисляется значение переменной x как частного b / a.
Значение переменной x выводится на экран с помощью функции writeln.
Выполняется чтение следующего значения с помощью функции readln.