uses graph;
var d,m:integer;
begin
 d:=detect;initgraph(d,m,'');
 setcolor(9);
 line(200,375,500,375);
 line(200,200,200,375);
 line(500,200,500,375);
 line(200,200,500,200);
 line(200,200,350,100);
 line(500,200,350,100);
 line(250,166,250,125);
 line(275,150,275,125);
 line(250,125,275,125);
 setcolor(white);
 line(240,375,240,280);
 line(300,375,300,280);
 line(240,280,300,280);
 line(245,330,255,330);
 setcolor(white);
 line(350,335,450,335);
 line(350,240,350,335);
 line(350,240,450,240);
 line(450,240,450,335);
 line(350,290,450,290);
 line(400,290,400,335);
 readln;closegraph;
 end.