Составте программу для рисования снеговика ​

Question

Составте программу для рисования снеговика ​

---

Answer 1

uses graphABC;

begin

setpenwidth(3);

setwindowsize(400,500);

ellipse(120,350,280,480);

circle(200,300,60);

circle(200,210,40);

line(170,90,230,90);

line(160,180,240,180);

line(170,90,160,180);

line(230,90,240,180);

floodfill(200,173,clblack);

floodfill(200,123,clblack);

setbrushcolor(clblack);

circle(190,200,5);

circle(210,200,5);

line(200,210,220,220);

line(200,220,220,220);

line(200,210,200,220);

floodfill(204,214,clblack);

setpenwidth(5);

arc(200,230,10,180,0);

line(70,320,170,250);

line(230,250,330,300);

line(300,450,350,200);

line(350,200,320,140);

line(350,200,340,140);

line(350,200,360,140);

line(350,200,380,140);

line(350,200,400,140);

end.