Программа рисования человека.

Program man;
uses Graph;
var gd, gm: Integer;
begin
 gd:=Detect;
 InitGraph(gd, gm, ' ');
 SetFillStyle(1, Green);
 Bar(0, 350, 639, 479);
 SetFillStyle(1, LightBlue);
 FloodFill(0, 0, Green);
 SetColor(Red);
 Circle(320, 200, 19);
 SetLineStyle(0, 0, 3);
 Rectangle(390, 220, 340, 300);
 Line(320, 300, 300, 350);
 Line(320, 300, 340, 350);
 Line(300, 240, 250, 250);
 Line(340, 240, 390, 250);
 SetFillStyle(1, Red);
 FloodFill(320, 200, Red);
 FloodFill(320, 230, Red);
 SetColor(Yellow);
 Circle(315, 190, 2);
 Circle(325, 190, 2);
 Line(315, 210, 325, 210);
 Readln;
 CloseGraph;
end.

---