program kuca;
uses graph;
var drajver,rezim,pom:integer;
begin
  drajver:=detect;
  initgraph(drajver,rezim,'');
  setcolor(white);
  rectangle(100,300,300,200);
  moveto(100,200);
  lineto(200,100);
  lineto(300,200);
  rectangle(180,300,220,260);
  rectangle(130,250,160,220);
  read(pom);
  closegraph
end.