[next] [prev] [prev-tail] [tail] [up]
eq:=3*x^3+2*x^2+x+5=0; s:=[evalf(solve(eq,x))]; mul(s[i],i=1..nops(s));
Gives
[next] [prev] [prev-tail] [front] [up]