ответ:program zadacha;
Var x,a,b :real;
begin
readln (a,b);
if a<>0 then x:=-b/a;
Writeln ('x= ',x);
end.
Объяснение:
