Domek – wersja numer 1

program rysunek;
uses crt, graph;
var driver,mode,x:integer;
begin
	driver:=detect; InitGraph(driver,mode,'c:\progra~1\TP\BGI');
	setfillstyle(2,white);
	bar(0,0,800,330);
	setfillstyle(2,Green);
	bar(0,330,800,600);
	setfillstyle(1,red);
	bar(150,230,600,440);
	rectangle(150,230,600,440);
	setfillstyle(6,brown);
	bar(150,150,600,240);
	setfillstyle(9,blue);
	bar(370,260,500,443);
	setfillstyle(4,white);
	bar(180,260,350,360);
	setcolor(14);
	for x:=0 to 60 do
	begin
		Circle(100,80,x);
	end;
	setcolor(blue);
	for x:=0 to 40 do
	begin
		Circle(130,80,x);
	end;
	for x:=0 to 30 do
	begin
		Circle(170,80,x);
	end;
	for x:=0 to 35 do
	begin
		Circle(210,80,x);
	end;
	setcolor(black);
	for x:=0 to 20 do
	begin
		Circle(350,80,x);
	end;
	for x:=0 to 30 do
	begin
		Circle(390,70,x);
	end;
	for x:=0 to 30 do
	begin
		Circle(420,60,x);
	end;
	setfillstyle(3,black);
	bar(320,150,350,70);
	repeat until Keypressed;
	Closegraph;
End.