Помогите, пожалуйста, с информатике!!! Дам 30 баллов!!!Составить программу решения...

Question

Помогите, пожалуйста, с информатике!!!
Дам 30 баллов!!!
Составить программу решения линейного уравнения ax+b=0
(а не равно 0)
Срочно!!!

Answer 1

Var
a,b :real;
Begin
Writeln('Введите a и b -> ');
Read(a,b);
Writeln('x = ', -b/a);
end.