Решебник

Program usegraph2;
uses graphABC;
begin
SetWindowSize(600,500);
SetPenColor(clGray);
Circle(300,100,30);
Circle(300,165,35);
Circle(300,250,50);
Circle(255,150,15);
Circle(345,150,15);
SetBrushColor(clBlack);
circle(290,90,5);
circle(310,90,5);
circle(300,170,5);
circle(300,150,5);
circle(300,225,5);
circle(300,250,5);
circle(300,275,5);
line(300,100,340,105);
line(300,110,340,105);
line(300,100,300,110);
SetBrushColor(clRed);
FloodFill(303,105,clRed);
line(270,70,330,70);
line(280,50,320,50);
line(280,50,270,70);
line(330,70,320,50);
FloodFill(300,60,clRed);
SetPenWidth(4);
SetPenColor(clBlack);
line(360,60,360,300);
line(360,100,340,60);
line(360,100,380,60);
End.