Как по икт сделать снеговика в ABC паскаль Напишите программу

Program sneg;

uses graphABC;

beginsetpenwidth (3);

setwindowsize (400,500);

ellipse (120,350,280,480);

circle (200,300,60);

circle (200,210,40);

line (170,90,230,90);

line (160,180,240,180);

line (170,90,160,180);

line (230,90,240,180);

floodfill (200,173, clblack);

floodfill (200,123, clblack);

setbrushcolor (clblack);

circle (190,200,5);

circle (210,200,5);

line (200,210,220,220);

line (200,220,220,220);

line (200,210,200,220);

floodfill (204,214, clblack);

setpenwidth (5);

arc (200,230,10,180,0);

line (70,320,170,250);

line (230,250,330,300);

line (300,450,350,200);

line (350,200,320,140);

line (350,200,340,140);

line (350,200,360,140);

line (350,200,380,140);

line (350,200,400,140);

end.