Как по икт сделать снеговика в 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.