残念しかでないプログラムですが UNTILの行の後に DIALOG "N="+STR$(N) と入れてみてください。 ダイアログでNの値が確認できます。 これ割りと便利なDIALOGの使い方です。 それでNが1になっている事がわかると思います。 1で正解に行くと思いますが 正解に行った後、プログラムがどう動くか確認してみて下さい。 直ぐにわかると思うので書かないでおきます。 何故、残念しか出ないかわかったら教えてください。