SUB MAM(C(),k,x)
   LET x=1
   FOR i=1 TO k-1
      FOR j=i+1 TO k
         IF C(i)=C(j)THEN
            LET x=0
            EXIT FOR
         END IF
      NEXT j
   NEXT i
END SUB
 
DIM A(10),B(10)
 
FOR i=1TO 10
   LET A(i)=i
NEXT i
 
FOR i=1TO 10
   LET B(i)=i
NEXT i
LET B(5)=8
 
PRINT 
PRINT "グループ内に同じ数が含まれているかどうか？"
PRINT
PRINT "Ａグループ："
MAT PRINT A;
PRINT "Ｂグループ： ";
MAT PRINT B;
PRINT
CALL MAM(A,10,x)
IF x=1 THEN PRINT "Ａグループには、同じ数が含まれていません。"
IF x=0 THEN PRINT "Ａグループには、同じ数が含まれています。"
CALL MAM(B,10,x)
PRINT
IF x=1 THEN PRINT "Ｂグループには、同じ数が含まれていません。"
IF x=0 THEN PRINT "Ｂグループには、同じ数が含まれています。"
PRINT
END