Mathematica Solve A System Of Equations