Решебник

Program elka;
uses graphABC;
begin
SetWindowSize(600,400);
SetBrushColor(clYellow);
Circle(500,100,30);
SetBrushColor(clGreen);
line(300,50,250,100);
line(300,50,350,100);
line(350,100,250,100);
line(300,100,230,200);
line(300,100,370,200);
line(230,200,370,200);
line(300,200,400,300);
line(300,200,200,300);
line(400,300,200,300);
rectangle(290,300,310,330);
MoveTo(0,300);
Lineto(100,350);
lineTo(200,330);
LineTo(400,330);
lineTo(600,370);
floodfill(200,380,clGreen);
floodfill(300,80,clGreen);
floodfill(300,110,clGreen);
floodfill(300,210,clGreen);
End.