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
135    PRINT "N=";N;"でa=";A;"の時のb, cの組は";INT((N-A)/2)-A+1;"通りである"
140 NEXT A
150 PRINT "N=";N;"のとき，総数は";X;"通りである"
160 END