Составьте программу решения квадратного уравнения.
В коде программы используется 7 переменных:
a, b, c - коэффициенты квадратного уравнения,
d - дискриминант,
x - корень при d=0,
x1, x2 - корни при d>0.
Соблюдайте следующую последовательность условных операторов:
1) условный оператор, определяющий сообщение при d<0;
2) условный оператор, определяющий корень и сообщение при d=0;
3) условный оператор, определяющий корни и сообщения при d>0.

• program n_11;
• var a, b, c, d, x, x1, x2: real;
• Begin {начало программного блока}
• writeln \('Решение квадратного уравнения'\);
  write \('Введите коэффициенты a, b, c\\gt \\gt '\);
• readln \(a, b, c\);
• d := sqr\(b\) - 4 * a * c;
• if d < 0 then writeln\('Корней нет'\);
• begin {начало составного оператора при d=0}
• x := -b / 2 / a;
  writeln\('Корень уравнения x=', x:9:3\)
• end;
• if d > 0 then
• begin {начало составного оператора при d>0}
• x1 := \(\-b \+ sqrt\(d\)) / 2 / a;
  x2 := \(\-b \- sqrt\(d\)) / 2 / a;
• writeln \('Корни уравнения: '\);
  writeln \('x1:=', x1:9:3\);
  writeln \('x2:=', x1:9:3\);
• end
• End.
• if d=0 then