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

program gg;uses graphabc;var i,x,x1,y,y1,r,g,b:integer;beginSetWindowWidth(1200);SetWindowheight(800);x:=WindowWidth div 2;y:=Windowheight div 2;for i:=1 to 1000000 dobeginx1:= random (1200);y1:= random (800);r:=random(255);g:=random(255);b:=random(255);setpencolor(rgb(r,g,b));line(x,y,x1,y1);sleep(5);end;end.