uses graph;
var x,y,x1,y1,c,f,t,i:integer;
begin
x:=0;
initgraph(x,y,'');
for i:=1 to 100 do
begin
x:=random(getmaxX)+1;
x1:=random(getmaxX)+1;
y:=random(getmaxY)+1;
y1:=random(getmaxY)+1;
if i mod 15=1 then c:=8 else c:=i;
setcolor(c);
line(x,y,x1,y1);
end;
readln
end.