Ответ:

готово

Объяснение:

program solve;

var

  a,b,x: real;

begin

Write('Введите a и b через пробел:');

ReadLn(a, b);

if a <> 0 then

begin  

  x := -b / a;

  WriteLn('Значение x = ', x);

end  

else

  begin

    if b <> 0 then

      WriteLn('Корней нет')

    else

      WriteLn('Любое число');

  end;

end.

Здесь, в принципе, 4 условных оператора, но фактически 2