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