Solving System Of Equations In Mathematica