Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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)