Mathematica Solve Inequality Three