> qd:=120-a*p;

> qs:=c*p-20;

> solve(qd=qs,p);

> solve(qd-120+a*p=0,qd);

> solve(qs-c*p+20=0,qs);

> solve({140/(a+c)=20,c*p-20=0},{a,c});

>