program haziko;
uses graph, crt;
var gd,gm,x1,y1,x2,y2,szin:integer;
    i,j:shortint;
    c:char;
begin
     detectgraph(gd,gm);
     initgraph(gd,gm,'c:\tp\bgi');
     setcolor(brown);
     setfillstyle(1,red);
     moveto(0,150);
     lineto(150,0);
     lineto(300,150);
     lineto(0,150);
     floodfill(20,140,brown);
     moveto(250,100);
     lineto(250,5);
     lineto(230,5);
     lineto(230,80);
     floodfill(235,40,brown);
     setcolor(white);
     rectangle(0,150,300,350);
     setfillstyle(1,yellow);
     bar(1,151,299,349);
     rectangle(40,170,140,250);
     setfillstyle(7,blue);
     bar(41,171,139,249);
     line(90,170,90,250);
     line(40,210,140,210);
     setfillstyle(1,green);
     bar(220,220,299,349);
     readln;
     closegraph;
end.