Номер 1147(составить кр.запись,ввести переменную, написать уравнение, не решать)

Var

 a, b: real;

begin

 writeln('ax + b = 0. Enter a and b =>');

 read(a, b);

 writeln(-b / a);

end.

Пошаговое объяснение:

я старался посмотри вроде так

Пошаговое объяснение:

Var

a, b: real;

begin

writeln ('ax + b = 0. Enter a and b =>');

read (a, b);

writeln (-b / a);

End.

как-то так