PRINT
PRINT " ヨセフスの問題 （ 継子立ての問題 ）"
PRINT
INPUT PROMPT "円周上に等間隔に並ぶ人の数は？　":n
INPUT PROMPT "何番目の人を除外していく？　( 数え始める人を１番目とする） ":m
LET k=1
FOR j=2 to n
   LET k=MOD(k+m,j)
   IF k=0 THEN LET k=j
NEXT j
PRINT
PRINT "　一番最初に数え始める人を 第１番 とすると"
PRINT "第";k; "番 の人が残ります。"
PRINT
END