Программа на 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.