Question

как сделать снеговика в паскале

Answer 1

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.

Не проверяла)))