Ответ:

готово

Объяснение:

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.