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

1. program zz1;uses GraphABC;var x, y, i:integer;beginsetwindowsize(500, 500);x:=50;y:=250;for i:=1 to 499 dobeginsetpencolor(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;beginsetwindowsize(500, 500);rectangle(0, 0, 500, 500);floodfill(1, 1, clblack);for i:=1 to 499 dobeginx1:=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.