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