100 INPUT N
110 LET X=0
120 FOR A=1 TO INT(N/3)
130    LET X=X+INT((N-A)/2)-A+1
140 NEXT A
150 PRINT "N=";N;"のとき，総数は";X;"通りである"
160 END