Подскажите , где в програме вычисления корней квадратного уравнения допущена ошибка. написана на паскале. program dis; var x1, a, b, c, x2, d : = real; begin wrireln('введите a'); readln(a); wrireln('введите b'); readln(b); wrireln('введите c'); readln(c); d : =sqr(*a*c); writeln('d=', d); if d> 0 then x1 : =(-1*b-sqrt(d))/(2*a); x2 : =(-1*b+sqrt(d))/(2*a); writeln('x1=', x1); writeln('x2=', x2) else begin if d< 0 then writeln('х не существует') else begin x1 : =(-1*b+sqrt(d))/(2*a); writeln('x1=', x1); end end end.