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 строка выдает ошибку (паскаль)
var a,b,c:integer;
d,x,x1,x2:real;
Еще ошибка в седьмой строке:d:=b*b-4*a*c;
И в 18-й:writeln ('Корни уравнения :');