uses graph, crt;
var
gd, gm: integer;
begin
initgraph(gd, gm, 'c:\bp\bgi');
SetFillStyle(1, 15);
setcolor(15);
CIRCLE(320, 240, 100);
floodfill(320, 240, 15);
CIRCLE(220, 240, 80);
floodfill(200, 240, 15);
CIRCLE(420, 240, 80);
floodfill(440, 240, 15);
repeat
;
until keypressed;
closegraph;
end.