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. как можно переделать программу, выдает ошибку?
убери после else if b<>0 then writeln ('Korney net')