Solve System Of Equations Mathematica