Нарисуйте «веер» из линий случайной длины, имеющих общее начало в точке с координатами (0;0), используйте различные цвета и стили линий — Pascal(Паскаль)

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.