Reduce[(3 x + 1 - a)/3 + 2 = x, a, Reals]