Var a,b,x: real; begin write ('Vvedite koaficient a,b»'); readln (a,b); if a меньше больше 0 then begin x:= -b/a; writeln ('Koren yravnenia x=', x:9:3); end else if b меньше больше 0 then writeln ('Korney net'); els...

Var a,b,x: real; begin write ('Vvedite koaficient a,b»'); readln (a,b); if a<>0 then begin x:= -b/a; writeln ('Koren yravnenia x=', x:9:3); end else if b<>0 then writeln ('Korney net'); else writeln ('x- luboe chislo'); end. Как можно переделать программу, выдает ошибку?