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.