program Project1;
uses crt,graph;

var
  d,m,k:smallint;

begin
  initgraph(d,m,'');
  begin
    rectangle(300,300,600,500);
    setcolor(white);

    line(400,200,300,300);
    line(500,200,600,300);       //jumts
    line(400,200,500,200);
    line (330,500,330,400);
    line(330,400,380,400);    //durvis 3 line
    line(380,400,380,500);
    circle(370,450,2);          //durvju rokturis
    line(520,170,520,220);
    line(520, 170, 540, 170);   //skurstenis
    line(540,170, 540,240);
    circle(540,150,5);
    circle(560,130, 5);        //dumi
    circle(580,100,5);
    circle(700,400,40);
    line(695, 440, 695, 500) ;         //koks
    line(705, 440, 705, 500);
    line(695, 500,705,500);
    rectangle(470,400, 530,460);
    line(500, 400, 500, 460);          //logs
    line(470,430, 530, 430);
    line(340,500,340,570);
    line(340, 570, 270, 570);       //cels
    line(370, 500,370 , 600);
    line(370,600,270,600);
    Line(800,0,800,700);              //ramis
    line(0, 700, 800,700);
    line(270, 570,270, 600);
    line(0, 350, 300, 350);
    line(600, 350, 800, 350);     //horrizonts
    line(1, 1, 1, 700);
    line(1, 1, 800, 1);
    setfillstyle(1, blue);
    floodfill(2,2,white);
    setfillstyle(1,green);
    floodfill(10,500, white);
    setfillstyle(1,green);
    floodfill(700,400,white);
    setfillstyle(1,brown);
    floodfill(700,450,white);
    setfillstyle(1,brown);
    floodfill(340,450, white);
    setfillstyle(1,5);
    floodfill(320,420, white);
    setfillstyle(1,7);
    floodfill(350,290,white);
    setfillstyle(1,7);
    floodfill(525,180,white);



    end;


  readln;



end.