Напишите программу для нахождения корней квадратного уравнения. Должно выходить три случая: 1. Есть один корень 2. Нету

Var a, b, c, d: real;begin write(\'Введите коэффициенты a,b,c \'); readln(a, b, c); d := sqr(b) - 4 * a * c; if d = 0 then writeln(\'Корень один x = \', (-b / (2 * a))); if d >0 then writeln(\'x1 = \',(-b + sqrt(d)) / (2 * a), \' x2 = \',(-b - sqrt(d)) / (2 * a)) else writeln(\'Корней нет\');end.