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 СТРОКА ВЫДАЕТ ОШИБКУ (паскаль)