заливка

Program pr;
uses crt, graph;
var d, m, x, y : integer;
begin
d:=detect;
initgraph (d,m,'');
setbkcolor (3);
settextstyle (1,0,6);
outtextxy(100,100,'Привет =) ');
settextstyle(2,0,7);
outtextxy(10,180,'Предлогаем тебе пройти обучающий курс');
settextstyle(1,0,4);
outtextxy(150,230,'По теме:');
settextstyle(10,0,4);
outtextxy(50,280,'<< C ++ Builder >>');
setcolor(14);
setfillstyle(1,14);
circle(528,100,22);
setcolor(Red);
setfillstyle(1,Red);
circle(530,47,30);
circle(484,70,30);
circle(572,70,30);
circle(478,120,30);
circle(522,153,30);
circle(575,125,30);
readkey;
end.

setcolor(14);
setfillstyle(1,14);
circle(528,100,22);
floodfill(528,100,14);
setcolor(Red);
setfillstyle(1,Red);
circle(530,47,30);
floodfill(530,47,red);
circle(484,70,30);
floodfill(484,70,red);
circle(572,70,30);
floodfill(572,70,red);
circle(478,120,30);
floodfill(478,120,red);
circle(522,153,30);
floodfill(522,153,red);
circle(575,125,30);
floodfill(575,125,red);