Uses graph, crt;
var dv,mv: integer;

Begin
dv:=detect;
initgraph (dv,mv,' ');
cleardevice;

SetColor(2);
Line(150,150,250,150);
line(250,150,190,200);
line(190,200,90,200);
Line(90,200,150,150);

line(90,200,90,400);
Line(90,400,190,400);
Line(190,400,190,200);
Line(250,150,250,350);
Line(250,350,190,400);

SetLineStyle(2,1,1);
Line(150,150,150,350);
Line(150,350,90,400);
Line(150,350,250,350);

SetLineStyle(0,1,1);
Line(350,150,450,150);
Line(350,150,380,190);
Line(380,190,450,150);

Line(450,150,450,300);
Line(350,150,350,300);
lINE(380,190,380,340);
lINE(380,340,350,300);
line(380,340,450,300);

SetLineStyle(2,1,1);
Line(450,300,350,300);

OutTextxy(80,190,'A');
Outtextxy(140,140,'B');
OutTextxy(250,140,'C');
OutTextxy(185,190,'D');
OutTextxy(185,410,'D1');
OutTextxy(80,410,'A1');
OutTextxy(130,340,'B1');
Outtextxy(230,340,'C1');

OutTextxy(340,140,'A');
OutTextxy(450,140,'B');
OutTextxy(380,175,'C');
OutTextxy(380,350,'C1');
OutTextxy(330,300,'A1');
OutTextxy(460,300,'B1');



repeat until keypressed;
closegraph;
End.