10  REM センター試験2003年 数学Ⅰ・Ａ第5問
20  REM オプションメニューから文法－Microsoft BASIC互換を選択してください。
100 S=0
110 T=0
120 INPUT "N=";N
130 FOR K=1 TO N
140 IF INT(K/2)=K/2 THEN GOTO 190
150 IF INT(K/3)=K/3 THEN GOTO 190
160 T=T+1
170 S=S+K
180 PRINT "a("; T; ")="; K
190 NEXT K
200 PRINT "S=";S
210 END

