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

Решение для Pascal ABC

uses 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.