Решить линейное уравнение A·x + B = 0, заданное своими коэффициентами A и B (коэффициент A не равен 0) (программа Паскаль)

var
A, B, x: real;

begin
writeln('Введите коэффициенты A и B (A <> 0):');
write(' A = ');
readln(A); { <-- вводим А }
write(' B = ');
readln(B); { <-- вводим B }
x := - B / A; { <== находим решение }
writeln;
{ Выводим результат с 4-значной точностью: }
writeln('x = ', x:0:4);
readln
end.