Есть готовая программа, которая выводит анимацию в Паскаль(разноцветные круги). С помощью нее нужно сделать анимации:
1. цветные линии из одной точки
(использовать SetPencolor(rgb(c,f,d))
2. Цветные линии, расположенные случайным образом на черном фоне.

program Lines;uses  GraphABC;const  n=1000000;var  x,y,c,i,f,d:integer;begin  for i:=1 to n do  begin    x:=Random(1000);    y:=Random(1000);    c:=Random(250);    f:=Random(250);    d:=Random(250);    SetPenColor(RGB(c,d,f));    Line(10,10,x,y)  endend.program Lines2;uses  GraphABC;const  n=1000000;var  x1,y1,x2,y2,c,i,f,d:integer;begin  Randomize;  ClearWindow(clBlack);  for i:=1 to n do  begin    x1:=Random(1000);    y1:=Random(1000);    x2:=Random(1000);    y2:=Random(1000);    c:=Random(250);    f:=Random(250);    d:=Random(250);    SetPenColor(RGB(c,d,f));    Line(x1,y1,x2,y2);    Sleep(100)  endend.