Uses GraphABC;
begin
Circle(50,100,20);
FloodFill(50,100,clGray);
Circle(75,100,20);
FloodFill(75,100,clRed);
Circle(100,100,20);
FloodFill(100,100,clLime);
Circle(125,100,20);
FloodFill(125,100,clGreen);
Circle(150,100,20);
FloodFill(150,100,clSkyBlue);
Circle(175,73,30);
FloodFill(175,73,clGreen);
circle(162,72,7);
FloodFill(162,75,clBlack);
circle(189,72,7);
FloodFill(189,75,clBlack);
Circle(50,200,20);
FloodFill(50,200,clGray);
Circle(75,200,20);
FloodFill(75,200,clRed);
Circle(100,200,20);
FloodFill(100,200,clLime);
Circle(125,200,20);
FloodFill(125,200,clGreen);
Circle(150,200,20);
FloodFill(150,200,clSkyBlue);
Circle(175,180,30);
FloodFill(175,180,clGreen);
circle(162,180,7);
FloodFill(162,180,clBlack);
circle(189,180,7);
FloodFill(189,180,clBlack);
Circle(50,300,20);
FloodFill(50,300,clGray);
Circle(75,300,20);
FloodFill(75,300,clRed);
Circle(100,300,20);
FloodFill(100,300,clLime);
Circle(125,300,20);
FloodFill(125,300,clGreen);
Circle(150,300,20);
FloodFill(150,300,clSkyBlue);
Circle(175,285,30);
FloodFill(175,285,clGreen);
circle(162,278,7);
FloodFill(162,278,clBlack);
circle(189,278,7);
FloodFill(189,278,clBlack);
FloodFill(1,1,clSilver)
end.
Подготовил Яковенко Матвей.