Нарисовать личико ** паскале срочно прошу пож

Question

Нарисовать личико на паскале срочно прошу пож

---

Comments

можно только шляпу

Answer 1

Uses graphABC;
begin
setwindowsize(320,320);
setpenwidth(1);

circle(150,200,100);
circle(150,200,25);
circle(190,160,15);
circle(110,160,15);
rectangle(100,30,200,130);
Ellipse(50,95,250,135);

arc(150,230,50,180,360);
arc(150,190,70,225,315);
FloodFill(120,100,clblack);
FloodFill(120,80,clblack);
FloodFill(111,159,clblack);
FloodFill(191,159,clblack);
FloodFill(151,199,clred);
FloodFill(150,260,clred);

end.