Решить уравнение ax^3+bx для произвольных a, b. Составить программу на Паскале.

Var a, b: real;

begin

readln (a, b);

if a=0 then if b = 0 then writeln ('x - любое значение')

else writeln ('x1 = 0');

if a>0 then if (b>=0) then writeln ('x1 = 0')

else writeln ('x1=0 ', 'x2=',-sqrt (-b/a),' ', 'x3=', sqrt (-b/a));

if a<0 then if (b<=0) then writeln ('x1 = 0')

else writeln ('x1=0 ', 'x2=',-sqrt (b/-a),' ', 'x3=', sqrt (b/-a))

end.