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.

Как можно переделать программу, выдает ошибку?