Solve[ {Log[x] + y == 1, Log[y] + Log[x] == 2}, {x,y} ]