нарисовать снеговика в програме паскаль 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;
Begin
SetWindowSize (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.