Написать программу решения уравнения Ax(в 3 степени ) + Bx=0 для произвольных А, В,...

$ax^3+bx=0$
$x(ax^2+b)=0$
Получим несколько решений:
$1.)x=0$
$2.)ax^2+b=0$
$ax^2=-b$
$x^2=- \frac{b}{a}$
$x_{1} = \sqrt{- \frac{b}{a}}$
$x_{2} = -\sqrt{- \frac{b}{a}}$

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.