kill(all)$

van=facebook.com/LearningCalculus$

solve([2*x+y=2*x*y,2*x+4*y=5*x*y],[x,y]);