Составить программу в Паскале, которая рисует выкройку платья

Решение для Pascal ABCuses GraphABC; vara: integer; beginreadln (a); moveto (a,1); circle (a+a div 2,1,a div 4); lineto (a+a div 4,1); moveto (a+(a div 4)*3,1); lineto (2*a,1); lineto (2*a,1+a); lineto (a,1+a); lineto (a,1); moveto (a,1+a); lineto (a- (a div 2) ,1+2*a); lineto (2*a+a div 2, 1+2*a); lineto (2*a,1+a); end.