SUB SORT(a(),m)
   FOR i=1 TO m-1
      FOR j=i+1 TO m
         IF a(i)>a(j) THEN
            LET t=a(j) 
            LET a(j)=a(i)
            LET a(i)=t
         END IF
      NEXT j
   NEXT i
END SUB

SUB MAME(b(),k)
   FOR i=1 TO k-1
      FOR j=i+1 TO k
         IF b(i)=b(j) THEN
            LET b(j)=-1
            LET g=1
            FOR g=j TO k-1
               IF b(i)=b(g+1) THEN
                  LET b(g+1)=-1
               ELSE
                  EXIT FOR
               END IF
            NEXT g
         END IF
      NEXT j
   NEXT i
END SUB

DIM A(20),B(12)

DATA 7,5,300,100,100,4,200,1,300,200,200,200,6,200,100,100,200,100,3,2
MAT READ A

PRINT 
PRINT "同じ数を１つにまとめていきます。"
PRINT
MAT PRINT A;
PRINT
CALL SORT(A,20)
MAT PRINT A;
PRINT
CALL MAME(A,20)
MAT PRINT A;
PRINT
FOR i=1 TO 20
   IF A(i)<>-1 THEN 
      PRINT A(i);
   END IF
NEXT i
PRINT
END