Var a,b,x: real; begin write ('Vvedite koaficient a,b»'); readln (a,b); if a<>0 then ...

Question

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.

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

Answer 1

Точку с запятой
 убери после else if b<>0 then writeln ('Korney net')

Comments

а можно укоротить прогу как нибудь?