DECLARE EXTERNAL FUNCTION P
DECLARE EXTERNAL FUNCTION Q
PRINT
INPUT PROMPT " 総数？　":n
INPUT PROMPT " 抽出数？　　　":m
PRINT
PRINT " 順列 ： ";JUN(n,m);"通り"
PRINT " 組み合わせ ： ";KUMI(n,m);"通り"
PRINT
END

EXTERNAL FUNCTION JUN(a,b)
LET k=1
FOR t=1 TO b
   LET k=k*(a-t+1)
NEXT t
LET JUN=k
END FUNCTION

EXTERNAL FUNCTION KUMI(a,b)
LET KUMI=JUN(a,b)/JUN(b,b)
END FUNCTION