comp=comp+1; //計算小迴園執行次數
       if(k[j]-k[j-1]<0)//判斷後減前是否<0(表示前>後);是的前後交換
        {
        change=change+1;//計算交換次數

p=1;//定義初值
   for (j=1;j<4;j++)
   {
      p=p*j;//計算1*1,1*2,2*3
      s=s+p;//將p值疊加
   }

a_rtn:
                    k=a/b;//求商數k
                    r=a-k*b;//計算r值
                    a=b;//把b給a
                    b=r;//把r給b
if(r!=0)goto a_rtn;//當r不等於0時反覆執行a_rtn