Где здесь ошибка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('Корней нет')elseif d=0 thenbegin 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)endend.

код неплохой написал, а ошибки в синтаксисе, вот  правильный

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('Корней нет')elseif d=0 thenbegin 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)endend.