Solve Linear System Mathematica