01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / LENA / DOMIK

program Domik;
uses GRAPH;
var gd,gm:integer;
begin
gd:=detect;
INITGRAPH(gd,gm,'C:\tp\Bgi');
setcolor(white);
setfillstyle(1,8);
{1} rectangle(360,200,480,320);
rectangle(400,240,440,300);
rectangle(390,300,450,310);
rectangle(380,310,460,320);
floodfill(380,220,white);
line(340,200,500,200); line(500,200,580,120);line(420,140,500,200);
line(420,140,340,200); line(340,200,420,120);line(420,140,500,60);
line(500,60,580,120); line(500,60,420,120); line(480,320,480,200);
line(480,320,560,240);line(560,240,560,140); line(540,220,500,260);
line(500,220,540,180);line(500,220,500,260); line(540,180,540,220);
line(520,240,520,200);circle(420,170,20);
floodfill(540,230,white);
floodfill(380,180,white);
setfillstyle(1,4);
floodfill(520,120,white);
floodfill(410,140,white);
setfillstyle(1,7);
floodfill(420,260,white);
floodfill(420,315,white);
floodfill(420,305,white);
setfillstyle(1,11);
floodfill(420,180,white);
floodfill(510,240,white);
floodfill(530,220,white);
{2} rectangle(80,220,140,320);
line(80,220,140,220);line(80,220,60,200);line(80,220,80,320);
line(80,320,60,300);line(60,300,60,200); line(80,220,110,200);
line(110,200,140,220);line(110,200,90,180);line(140,220,120,200);
line(90,180,120,200);line(90,180,60,200);line(130,270,120,280);
circle(110,250,15);
setfillstyle(1,8);
floodfill(100,300,white);
floodfill(70,240,white);
floodfill(110,210,white);
setfillstyle(1,4);
floodfill(80,200,white);
floodfill(115,200,white);
setfillstyle(1,11);
floodfill(110,250,white);
{3} line(360,320,480,320);line(460,320,280,480);line(380,320,240,400);
line(80,320,140,320);line(140,320,240,400);line(80,320,140,480);
rectangle(1,1,640,480);
line(1,240,60,240);line(140,240,360,240);line(560,240,640,240);
setfillstyle(1,9);
floodfill(360,80,white);
setfillstyle(1,10);
floodfill(300,260,white);
floodfill(80,380,white);
floodfill(560,260,white);
setfillstyle(1,6);
floodfill(360,360,white);
{4} line(460,400,600,400);line(500,360,560,360);
arc(500,400,90,180,40);arc(560,400,0,90,40);
line(550,390,560,370);line(560,370,540,370);line(540,370,550,390);
line(510,390,520,370);line(520,370,500,370);line(500,370,510,390);
line(550,370,550,340);line(550,370,560,340);line(550,370,540,340);
line(510,370,510,340);line(510,370,520,340);line(510,370,500,340);
setfillstyle(1,2);
floodfill(560,380,white);
setfillstyle(1,12);
floodfill(550,380,white);
floodfill(510,380,white);
{5} circle(220,80,60);circle(240,60,10);circle(200,60,10);
arc(220,80,180,360,40);arc(220,80,180,360,10);circle(240,60,2);
circle(200,60,2);
setfillstyle(1,14);
floodfill(220,80,white);
floodfill(205,60,white);
floodfill(245,60,white);
setfillstyle(1,1);
floodfill(200,60,white);
floodfill(240,60,white);
{6} circle(180,400,20);
line(200,400,220,420);
line(160,400,140,420);
line(170,420,170,440); arc(180,400,200,340,10);
line(170,440,160,440); circle(185,395,5);
line(190,420,190,440); circle(175,395,5);
line(190,440,200,440); circle(177,395,2);
circle(183,395,2);
setfillstyle(1,5);
floodfill(180,400,white);
setfillstyle(1,15); floodfill(187,394,white);
floodfill(173,394,white);
readln;
closegraph;end.