rem 石取りゲーム・最後に石を取ったら負け
cls
dim a, b, x, y, n, m, t
input "石の数？", n
n = val(n)
if(n<1){return}
input "1回に取れる最大の石の数？", m
m = val(m)
if(m<1){return}
t = 1
while(n != 0){
    if(t == 1){
        a = n - 1
        b = m + 1
        a = mod(a, b)
        x = a
        if(x == 0){x = 1}
        print "私は ", x, "個の石を取ります\n"
    } 
    else{
        while(1){
            input "何個の石を取りますか？", x 
            if((x >= 1) and (x <= m) and (x <= n)){break}
        } 
    }
    n = n - x
    print "残りは ", n, "個です\n"
    if(t == 1){t = 0}
    else      {t = 1}
}
if(t == 1){ print "あなたの負けです！\n" }
else      { print "私の負けです！\n" }