uses graph;
var xc,yc:integer;
begin
xc:=0;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
setcolor(1);
ellipse(xc,yc-30,0,360,250,150);
ellipse(xc,yc-30,0,360,240,140);
setfillstyle(1,1);
floodfill(xc-245,yc-30,1);
setcolor(11);
ellipse(xc,yc-30,0,360,240,140);
setfillstyle(1,11);
floodfill(xc,yc-30,11);
setcolor(15);
setfillstyle(1,15);
Circle(xc-10,yc-70,50);
floodfill(xc-10,yc-70,15);
Circle(xc+10,yc-70,50);
floodfill(xc+45,yc-70,15);
setcolor(2);
line(xc,yc-120,xc-57,yc-50);
line(xc,yc-120,xc+57,yc-50);
line(xc+57,yc-50,xc-57,yc-50);
setfillstyle(1,2);
floodfill(xc,yc-55,2);
setcolor(8);
circle(xc,yc-85,10);
setfillstyle(1,8);
floodfill(xc,yc-85,8);
setcolor(6);
rectangle(xc-57,yc-50,xc+57,yc+64);
setfillstyle(1,6);
floodfill(xc,yc-25,6);
setcolor(9);
rectangle(xc-16,yc-15,xc+16,yc+17);
setfillstyle(1,9);
floodfill(xc,yc,9);
setlinestyle(0,0,3);
setcolor(10);
line(xc-15,yc-5,xc+15,yc-5);
line(xc,yc-15,xc,yc+17);
readln
end.