Составьте программу решения квадратного уравнения:
Будем использовать 7 переменных: коэффициенты a, b и c, дискриминант d, корень при d=0 - x и корни при d>0 - x1 и x2.
Соблюдайте следующую последовательность условных операторов:
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\('Корней нет'\);
• if d = 0 then
• 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.