Решение квадратного уравнения, если B<0 - Turbo Pascal

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

Всем доброго времени суток! Опять нуждаюсь в помощи. Работаю над осложненной версией программы по решению квадратных уравнений. Но не получается решить уравнение, если

B<0

. Программа решает его неправильно. Вот кусок исходника:

if b<0 then begin
  x1:=(b+(sqrt(d)) / (2*a));  // Тут то и все
  x2:=(b-(sqrt(d)) / (2*a));   // мои проблемы
    writeln('a= ',a:0:2);
    writeln('b= ',b:0:2);
    writeln('c= ',c:0:2);
    writeln(' ');
    writeln('D= ',sqr(b):0:2,' - 4 * ',a:0:2,' * ',c:0:2,' = ',d:0:2);
    writeln(' ');
    writeln('x1= ',b-b-b:0:2,' + ',sqrt(d):0:2,' / ',' 2 * ',a:0:2);
    writeln('x2= ',b-b-b:0:2,' - ',sqrt(d):0:2,' / ',' 2 * ',a:0:2);
    writeln(' ');
    writeln(' ');
    writeln('ЋвўҐв :');
    writeln('  x1= ',x1:0:2);
    writeln('  x2= ',x2:0:2);
    writeln('Џа®Ја*¬¬* *Ґ ¬®¦Ґв аҐиЁвм нв® га*ў*Ґ*ЁҐ');
                   end   else   begin
  x1:=(-b+sqrt(d) / (2*a));
  x2:=(-b-sqrt(d) / (2*a));
    writeln('a= ',a:0:2);
    writeln('b= ',b:0:2);
    writeln('c= ',c:0:2);
    writeln(' ');
    writeln('D= ',sqr(b):0:2,' - 4 * ',a:0:2,' * ',c:0:2,' = ',d:0:2);
    writeln(' ');
    writeln('x1= -',b:0:2,' + ',sqrt(d):0:2,' / ',' 2 * ',a:0:2);
    writeln('x2= -',b:0:2,' - ',sqrt(d):0:2,' / ',' 2 * ',a:0:2);
    writeln(' ');
    writeln(' ');
    writeln('ЋвўҐв :');
    writeln('  x1= ',x1:0:2);
    writeln('  x2= ',x2:0:2);
                            end;

Решение задачи: «Решение квадратного уравнения, если B<0»

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

x1:=(-b+sqrt(d)) / (2*a);
x2:=(-b-sqrt(d)) / (2*a);

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

x1 := (-b + sqrt(d)) / (2*a); - здесь мы вычисляем значение переменной x1, которая будет являться корнем квадратного уравнения. В данном случае, мы используем формулу для нахождения корней квадратного уравнения. Значение переменной b и d пока неизвестны, но они будут определены далее в коде. Значение переменной a также неизвестно, но оно также будет определено далее в коде.
x2 := (-b - sqrt(d)) / (2*a); - здесь мы вычисляем значение переменной x2, которая также будет являться корнем квадратного уравнения. Значение переменной b и d уже известны нам из предыдущего шага.
if abs(x1 - x2) > 0.0001 then - здесь мы проверяем, насколько близки значения x1 и x2. Если разница между ними больше указанного значения (в данном случае 0.0001), то мы можем сделать вывод, что корни квадратного уравнения не являются рациональными числами.
print(Корни квадратного уравнения не являются рациональными числами); - здесь мы выводим сообщение, указывающее на то, что корни квадратного уравнения не являются рациональными числами.
else - здесь мы переходим к следующему блоку кода, если условие в предыдущем блоке не выполнилось.
print(Корни квадратного уравнения являются рациональными числами); - здесь мы выводим сообщение, указывающее на то, что корни квадратного уравнения являются рациональными числами.
end; - здесь мы заканчиваем программу.