[size=5][/sizeprogram dfdf;
   uses crt,graph;
   var i,j,k,l:integer;p:boolean;
   begin
     i:=detect;
     initgraph(i,j,'d:\tp7\bgi');setcolor(lightgreen);
     for i:=50 to  100 do
        begin
          j:=i*2;setcolor(i mod 16);
          circle(i,j,i);readkey;
         end;readkey;setcolor(blue);clrscr;k:=40;l:=80;p:=true;
      for i:=40 to 350 do
         begin
           j:=round(i*1.2); setcolor(i mod 16);
           ellipse(i,j,0,360,k,l);readkey;
          if p=true then begin k:=k-1;l:=l-2;end;
          if k=0 then  p:=false;
          if p=false then begin k:=k+1;l:=l+2;end;
          if k=40 then p:=true;
         end;readkey;clrscr;
         setcolor(green);
      for i:=80 to 150 do
       begin
         setcolor(i mod 14);
         ellipse(150,i,0,360,100-(i-79),150-(i-79)*2);readkey;
        end;clrscr;
        for i:=17 to 200 do
         begin
           setcolor(i mod 16);
          line(10+i,10+i,60+i,30+i);
          line(10+i,10+i,80+i,90+i);
          line(60+i,30+i,80+i,90+i);readkey;
    end; clrscr;
     for i:=20 to 150 do
        begin
         setcolor(i mod 16);
         arc(i,i*2,340,270,i-10 );readkey;
        end;
    end.
]指点一下,怎么使它动起来?[em8][em8][em8]