Q 6.1   p.141

eq = {e == r - y, w == a/(s + 1) (e - k w), 
        y == w/s}

Solve[eq, y, {w, e}]

Solve[eq, e, {w, y}]