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.