Ошибки в 9 и 10 строчке , по идее должна заработать
if (b<>0) and (a<>o) then
begin
x:=(-b)/a;
write('неизвестное',x);
end
else
if (b=0) then ('неизвестное',x)
end.
Ошибки в 9 и 10 строчке , по идее должна заработать
if (b<>0) and (a<>o) then
begin
x:=(-b)/a;
write('неизвестное',x);
end
else
if (b=0) then ('неизвестное',x)
end.