Ошибки в 9 и 10 строчке , по идее должна заработать

if (b<>0) and (a<>o) then

begin

x:=(-b)/a;

write('неизвестное',x);

end

else

if (b=0) then ('неизвестное',x)

end.