uses crt,graph;
var gd,gm:integer;
procedure thietlap;
begin
gd:=detect;
initgraph(gd,gm,' ');
end;
procedure vetim;
var x,y:integer;
begin
setcolor(4);
x:=getmaxx div 2;
y:=getmaxy div 2;
arc(x-85,y,30,240,100);
arc(x+85,y,0,150,71);
arc(x+85,y,300,360,100);
line(x-100,y,x,y-100);
line(x,y-100,x+100,y);
setfillstyle(1,4);
floodfill(x,y,4);
end;
begin
thietlap;
vetim;
readln;
end