Написать программу решения уравнения ax(в 3 степени ) + bx=0 для произвольных а, в, значения которых вводятся с клавиатуры

Получим несколько решений:







var
  a, b: real;

begin
  readln(a, b);
  writeln('x = 0');
  if (-b/a) >= 0 then
  begin
    writeln('x = ', sqrt(-b/a));
    writeln('x = ', -sqrt(-b/a));
  end;
end.