Написать программу, которая находит решения уравнения ax^3+bx = 0 для любых заданных значений a и b.
Пожалуйста, на паскале

Var a,b:integer;
x,c:real;
begin
read(a,b);
if ((-b)/a)gt;=0 then begin 
      x:=sqrt((-b)/a); 
      c:=-x; 
   writeln(x=,0); 
   writeln(x=,x); 
   writeln(x=,c);
end
else 
   writeln(x=,0);
end.