нарисовать снеговика в програме паскаль ABC

uses GraphAbc; begin Arc(100, 50, 25, -57, 240); Arc(100, 110, 40, 110, 219); Arc(100, 110, 40, -39, 71); Arc(100, 180, 55, 125, 415); Arc(100, 50, 18, -57, -120); Circle(90, 45, 3); Circle(110, 45, 3); Circle(100, 55, 3); Circle(100, 90, 4); Circle(100, 110, 4); Circle(100, 130, 4); end.2 способ Uses GraphAbc;BeginSetWindowSize (640,480);ClearWindow;SetPenColor (clNavy);SetPenWidth (3);Circle (200,300,75);Circle (200,175,50);Circle (200,100,25);FloodFill (200,100,clGray);FloodFill (200,175,clGray);FloodFill (200,300,clGray);SetPenColor (clBlack);SetPenWidth (5);Line (125,225,175,175);Line (260,175,300,175);SetPenColor (clNavy);SetPenWidth (2);Ellipse (175,90,225,80);FloodFill (200,85,clGray);Line (175,85,185,50);Line (185,50,215,50);Line (215,50,225,85);FloodFill (200,55,clNavy);FloodFill (200,77,clNavy);SetPenColor (clBrown);Circle (190,95,4);FloodFill (210,95,clBrown);Circle (210,95,4);FloodFill (210,95,clBrown);Line (205,100,220,120);Line (220,120,195,100);Line (195,100,205,100);FloodFill (205,105,clBrown);SetPenWidth (10);Line (300,150,300,375);SetPenWidth (5);Line (300,150,280,100);Line (300,150,290,100);Line (300,150,310,100);Line (300,150,320,100);Line (300,150,300,100);End.