Составить программу решения уравнения ax^2+bx=0 (a,b - вводится с клавиатуры)

var
  a, b: real;
begin
  readln(a, b);
  writeln(X_1 = 0);
  if (a <> 0) then
    writeln(X_2 = , -b / a)
  else
    if (b = 0) then
      writeln(Х любое);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.