WolframAlpha computational knowledge AI
Solve[ {Log[x] + y == 1, Log[y] + Log[x] == 2}, x ]