Найти корень квадратного уравнения - Turbo Pascal

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

Помогите!!! Нужна программа которая должна находить корень квадратного уравнения(любого).

Решение задачи: «Найти корень квадратного уравнения»

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

Var a,b,c,d : Real;
Begin
  Write('Введите коэффициенты A B C: '); Readln(a,b,c);
  d:=b*b-4*a*c;
  If d<0 then Writeln('Решений нет') else
    Case d=0 of
     True : Writeln('x1 и x2 = ',-b/(2*a):8:4);
     False : Writeln('x1 = ',(-b+sqrt(d))/(2*a):8:4,'  x2 = ',(-b-sqrt(d))/(2*a):8:4);
   end;
end.

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

В начале объявляются переменные a, b, c и d типа Real.
Затем выводится сообщение с просьбой ввести коэффициенты A, B и C.
Значение переменной d вычисляется как bb - 4a*c.
Проверяется, является ли значение переменной d меньше нуля. Если это так, выводится сообщение о том, что решений нет.
Если значение переменной d равно нулю, то выполняется case-условие:
- Если значение переменной d равно 0 и True (т.е. b = 0), выводится сообщение x1 и x2 = -b/(2*a):8:4.
- Если значение переменной d равно 0 и False (т.е. b = 0), выводится сообщение x1 = -b/(2*a):8:4, x2 = 0.
- Если значение переменной d не равно 0, выводится сообщение x1 = (-b+sqrt(d))/(2a):8:4, x2 = (-b-sqrt(d))/(2a):8:4.