Pascal ABC нарисовать снеговика и две елки

pascal ABC нарисовать снеговика и две елки

line(350,200,360,140); 13 4 31 15 2 line(170,90,230,90); arc(200,230,10,180,0); 26 floodfill(204,214,clblack); line(160,180,240,180); setpenwidth(3); 3 circle(190,200,5);

line(230,90,240,180);

• 1 8 18 17 6 line(200,220,220,220); 25 line(70,320,170,250); 12 5 line(230,250,330,300); line(350,200,400,140); circle(200,210,40); 29 floodfill(200,123,clblack); 28 line(350,200,320,140); begin line(350,200,340,140); circle(210,200,5); 20 24 ellipse(120,350,280,480); line(300,450,350,200); 23 11 32 uses graphABC; setpenwidth(5); floodfill(200,173,clblack); line(350,200,380,140); line(200,210,200,220); 10 circle(200,300,60);

  end.

setwindowsize(400,500); 19 27 14 22 16 30 9 line(170,90,160,180); line(200,210,220,220); 7 setbrushcolor(clblack);

21