3)program zvetok;
Uses GraphABC;
begin
setpenwidth (3);
Ellipse(105,130,135,195);
Ellipse(40,225,115,195);
Ellipse(200,225,115,195);
circle(120,218,30);
floodfill(120,218,clYellow);
line(120,250,120,300);
rectangle(40,290,200,320);
floodfill(45,295,clFuchsia);
end.
4)program cheburaska;
Uses GraphABC;
begin
setpenwidth (3);
circle(145,375,15);
floodfill(145,375,clBrown);
circle(190,375,15);
floodfill(190,375,clBrown);
circle(130,300,15);
floodfill(130,300,clBrown);
circle(208,300,15);
floodfill(208,300,clBrown);
Ellipse(140,218,200,375);
floodfill(160,250,clBrown);
circle(100,218,34);
floodfill(100,218,clBrown);
circle(240,218,34);
floodfill(240,218,clBrown);
circle(170,218,40);
floodfill(170,218,clBrown);
line(170,218,175,230);
line(170,218,165,230);
line(165,230,175,230);
circle(155,210,7);
circle(185,210,7);
end.