Написать программу решения линейного уравнения с произвольными параметрами: a*x+b=0.

Var  a,b,x:real;
begin
write('Введите коэффициенты а и b: ');
readln(a,b);
x:=-b/a;
writeln('ответ: x=',x);
end.