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

1. program zz1;

uses GraphABC;

var x, y, i:integer;

begin

setwindowsize (500, 500);

x:=50;

y:=250;

for i:=1 to 499 do

begin

setpencolor (rgb (random (255), random (255), random (255)));

line (x, y, 450, i);

end;

end.

2. program zz1;

uses GraphABC;

var x1, y1, x2, y2, i:integer;

begin

setwindowsize (500, 500);

rectangle (0, 0, 500, 500);

floodfill (1, 1, clblack);

for i:=1 to 499 do

begin

x1:=random (500);

y1:=random (500);

x2:=random (500);

y2:=random (500);

setpencolor (rgb (random (255), random (255), random (255)));

line (x1, y1, x2, y2);

end;

end.