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