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.