>	p1:=11.:p2:=7.:m:=20.:q:=2.:

>	eq[1]:=-xc:

>	eq[2]:=-yc+yd:

>	eq[3]:=3*yd-m:

>	eq[4]:=xa+xc-p2*cos(Pi/3)+2*q:

>	eq[5]:=ya+yb+yc-p2*sin(Pi/3)-p1:

>	eq[6]:=-2*q+6*yb-3*p2*sin(Pi/3)+3*yc-3*xc:

>	s:=solve({seq(eq[i],i=1..6)},{xa,ya,xc,yc,yd,yb});

>	assign(s):

 Проверка

>	evalf(ya+yb-p2*sin(Pi/3)-p1+yc);