10  REM 2001年センター試験 数学A
20  REM オプションメニューから文法
30  REM Microsoft BASIC互換を選択してください 
100 INPUT "X=";X
110 INPUT "n=";N
120 Y=1
130 X=X*X
140 IF N-2*INT(N/2)=0 THEN GOTO 160
150 Y=Y*X
160 N=INT(N/2)
170 IF N=0 THEN GOTO 190
180 GOTO 140
190 PRINT "Y=";Y
200 END
    
