Где здесь ошибка

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: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.