Где здесь ошибка program n_11; var a, b, c: real; var d: real; var x, x1, x2: real; begin writeln('расширение квадратного уровнения'); write('введите коофиценты a, b, c > > '); readln(a, b, c,); d: =b*b-4*a*c; if d< 0 then writeln('корней нет') else if d=0 then begin x: =-b/2/a; writeln('корнень уровненияx=',x: 9: 3) end else begin x1: =(-b+sqrt(d))/2/a; x2: =(-b+sqrt(d))/2/a; writeln('корни уровнения: '); writeln(x1=',x1: 9: 3); writeln(x2=',x2: 9: 3) end end.

Program n_11;
var a, b, c, d, x, x1, x2:Real;
begin 
WriteLn('Решение квадратного уравнения');
Write('Введите коэффициенты a, b, c >>');
ReadLn(a, b, c);
d:=b*b-4*a*c;
if d<0 then WriteLn('Корней нет')
else
if d=0 then
begin 
x:=-b/2/a;
WriteLn('Корень уравнения=',x:9:3) 
end 
else 
begin 
x1:=(-b+sqrt(d))/2/a;
x2:=(-b-sqrt(d))/2/a;
WriteLn('Корни уравнения:');
writeln('x1=',x1:9:3);
WriteLn('x2=',x2:9:3);
end
end.