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

Program Begin38;
Var
A,X,B:Real;
Begin
WriteLn('Введите A и B');
ReadLn(A,B);
WriteLn('x = ',-(B/A));
ReadLn;
End.

автор: Sklyarov Sergej a.k.a. S9