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;
y:=random(getmaxY)+1;
if i mod 15=1 then c:=8 else c:=i;
f:=random(4);
t:=random(3)+1;
setlinestyle(f,0,t);
setcolor(c);
line(0,0,x,y);
end;
readln
end.