Программа на ABC Pascal (как сделать снеговика?)

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.