Что не так сделал подскажите Program Roots; Var a, b, c, d, x, x1, x2: real; begin WriteLn('Введите коэфициенты квадратного уравнения: '); Write('a=');ReadLn(a); Write('b=');ReadLn(b); Write('c=');ReadLn(c); if a=0 then writeln('Ошибка ввода даных'); writeln('Повторите ввод'); end else begin WriteLn('Введите коэфициенты квадратного уравнения: '); Write('a=');ReadLn(a); Write('b=');ReadLn(b); Write('c=');ReadLn(c); if a>0 then if b=0 then if c=0 then WriteLn('Любое x - решение') else WriteLn('Нет решений') else begin x:=-c/b; WriteLn ('x=', x) end else begin d:=b*b-4*a*c; if d<0 then WriteLn ('Нет вещественных корней') else begin x1:=(-b+sqrt(d))/2/a; x2:=(-b-sqrt(d))/2/a; WriteLn('x1=', x1); WriteLn('x2=', x2) end end end.