Напишите программку для нахождения корней квадратного уравнения. Обязано выходить три варианта:

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 gt;0 then
writeln(x1 = ,(-b + sqrt(d)) / (2 * a), x2 = ,(-b - sqrt(d)) / (2 * a))
else
writeln(Корней нет);
end.