Помогите пожалуйста срочно составить программу по решению линейного уравнения ax+b=0

Question

Помогите пожалуйста срочно составить программу по решению линейного уравнения ax+b=0

Answer 1

program chy;

Var x,a,b :real;

begin

write('a=');

read (a);

write('b=');

read(b);

if a<>0 then x:=-b/a;

Writeln ('x= ',x);

end.

---