Программа рисует домик.

program gr_1;

uses crt,graph;

var dr,md:integer;

begin

dr:=detect;

initgraph (dr,md,'c:\bp\bgi');

setbkcolor(1);

rectangle(200,200,500,450);

line(350,50,500,200);

line(350,50,200,200);

setcolor(1);

setlinestyle(0,0,3);

setfillstyle(1,8);

rectangle(480,320,420,445);

floodfill(450,382,1);

setcolor(1);

setlinestyle(0,0,3);

setfillstyle(1,14);

rectangle(280,280,350,350);

floodfill(315,315,1);

setcolor(1);

setlinestyle(0,0,4);

setfillstyle(1,4);

setcolor(6);

circle(350,150,30);

floodfill(350,150,6);

readkey;

closegraph;

end.