program Zad_1;
uses graph;
var
grDriver:integer;
grMode:integer;
Begin
grDriver:=Detect;
InitGraph(grDriver,grMode,'');
SetColor(5);
Line(100,250,500,250);
SetColor(6);
Line(500,250,150,350);
SetColor(7);
Line(150,350,300,150);
SetColor(8);
Line(300,150,450,350);
SetColor(9);
Line(450,350,100,250);
readln;
End.