Нужно нарисовать цыплёнка на Паскале. GraphABC

uses graphABC; var x,y:integer; begin setwindowsize(500,500); centerwindow; x:=250; y:=250; setpenwidth(2); ellipse(x-100,y-80,x+100,y+80); ellipse(x-80,y-70,x+70,y+50); ellipse(x-140,y-110,x-60,y-45); ellipse(x-125,y-100,x-115,y-80); line(x-150,y-85,x-140,y-85); line(x-150,y-85,x-140,y-75); line(x+95,y-20,x+105,y-45); line(x+105,y-45,x+100,y-10); end.