Автор Заблудший немец задал вопрос в разделе Другие языки и технологии
Как в паскале авс нарисовать снеговика? и получил лучший ответ
Ответ от Ўрий[гуру]
program baba;
uses graph;
var a,b:integer;
begin
a:=detect;
initgraph(a,b,'');
setbkcolor(1); {цвет фона*}
Setcolor(15); {цвет линий}
circle(358,183,36);
circle(358,287,70);
circle(358,475,115);
line(317,151,399,151);
line(317,151,340,100);
line(340,100,378,100);
line(378,100,399,151);
arc(358,183, 360,170,25); {рот}
circle(346,170,5); {левый глаз}
circle(370,170,5); {правый глаз }
ellipse (294,592,360,0,31,18); {левоя нога*}
ellipse (410,595,360,0,31,18); {правоя нога*}
line(288,287,183,393); {левоя рука}
Line(212,364,212,406);
line(212,364,174,365);
line(427,287,507,393); {Правоя рука*}
line(485,364,516,406);
line(536,365,485,365);
readln;
closegraph;
end.
Не проверял, напиши что получилось
ьльдбьлд
program p23;
uses graphabc;
begin
setbrushcolor(clAquamarine);
circle(200,125,35);
circle(200,195,35);
circle(200,265,35);
setbrushcolor(clblack);
circle(200,200,5);
circle(200,270,5);
circle(185,120,5);
circle(215,120,5);
setpencolor(clorange);
setbrushcolor(clorange);
line(200,135,190,140);
line(190,140,210,135);
line(200,135,210,135);
setbrushcolor(clred);
rectangle(175,25,225,100);
setpencolor(clblack);
line(230,175,250,225);
line(170,175,150,225);
end.