(%i4) eq1 : 2 * x + y - z = 1 $
eq2 : x - 3 * y + 2 * z = 1 $
eq3 : - x + 2 * y - 4 * z = 2 $
linsolve([ eq1, eq2, eq3],[ x, y, z]) ;
(%o4) [ x = 8 19 , y = 17 19 , z = 20 19 ]

Created with wxMaxima.