PRINT
PRINT "トーナメント表作成の骨子"
PRINT
INPUT PROMPT "チーム数？  ":n
PRINT
LET X=n
LET C=0
DO WHILE X>=2
   LET X=X/2
   LET C=C+1
LOOP
PRINT "全試合数は";n-1;"試合です。"
IF X=1 THEN GOTO 10
LET Y=n-2^C           ! １回戦の数
LET Z=n-2*Y
PRINT "２回戦から登場するチームは";Z;"チームです。"
PRINT "１回戦から登場するチームが優勝するためには";C+1;"回勝たなければなりません。"
GOTO 20
10 PRINT "２回戦から登場するチームはありません。"
   PRINT "優勝するためには";C;"回勝たなければなりません。"
20 PRINT
END