Фок
Форд
Орд
Фокс
Окс
Фор
program zadacha;Var x,a,b :real;beginreadln (a,b);if a<>0 then x:=-b/a;Writeln ('x= ',x);end.
См. решение на рисунке