Вот интересная анимашка,тока в строке
initgraph(dv,mv,'d:\all\programs\bp\bgi');
вместо d:\all\programs\bp\bgi напишите свой путь к папке BGI :
program graphhhh;
uses crt,graph;
var dv,mv,i,t,ttt,ks,x1,k,y1,x2,y2,a,b,c:integer;
m:array[1..99] of integer;
begin
dv:=9;
mv:=2;
initgraph(dv,mv,'d:\all\programs\bp\bgi');
randomize;
clrscr;
while i=0 do begin
a:=random(getmaxx);
b:=random(getmaxy);
c:=random(getmaxx);
setcolor(random(15));
settextstyle(3,0,4);
setlinestyle(4,1,1);
for k:=getmaxx downto 1 do begin
setcolor(random(15));
settextstyle(0,0,3);
circle(getmaxx div 2,getmaxy div 2,{random(getmaxx)}k);
{line(1,1,random(getmaxx),random(getmaxy));
line(getmaxx,1,random(getmaxx),random(getmaxy));
line(1,getmaxy,random(getmaxx),random(getmaxy));
line(getmaxx,getmaxy,random(getmaxx),random(getmaxy));}
K:=k-1;
t:=t-1;
if k<=1 then
begin
a:=random(getmaxx);
b:=random(getmaxy);
c:=random(getmaxx);
for k:=1 to getmaxx do begin
k:=k+1;
setcolor(random(15));
circle(getmaxx div 2,getmaxy div 2,k);
circle(getmaxx,getmaxy,k);
circle(a,a,k);
circle(b,b,k);
circle(a,b,k);
circle(b,a,k);
circle(c,a,k);
circle(c,b,k);
circle(a,c,k);
circle(b,c,k);
circle(c,c,k);
circle(getmaxx div 2,getmaxy,k);
circle(getmaxx,getmaxy div 2,k);
circle(1,1,k);
circle(getmaxx,1,k);
circle(getmaxx div 2,1,k);
circle(1,getmaxy div 2,k);
circle(1,getmaxy,k);
if k>=getmaxx then k:=getmaxx;
if keypressed then break;
end;
end;
circle(getmaxx,getmaxy,k);
circle(getmaxx div 2,getmaxy,k);
circle(getmaxx,getmaxy div 2,k);
circle(1,1,k);
circle(getmaxx,1,k);
circle(getmaxx div 2,1,k);
circle(1,getmaxy div 2,k);
circle(1,getmaxy,k);
circle(a,a,k);
circle(b,b,k);
circle(a,b,k);
circle(b,a,k);
circle(c,a,k);
circle(c,b,k);
circle(a,c,k);
circle(b,c,k);
circle(c,c,k);
if keypressed then break;
end;
nosound;
{for x1:=1 to getmaxy do
for y1:=1 to getmaxx do
begin
putpixel(y1,x1,random(getmaxx));
if keypressed then break;
end; }
if keypressed then break;
end;
readkey;
end.