100 INPUT N
110 LET X=0
120 FOR A=1 TO INT(N/3)
131    FOR B=A TO INT((N-A)/2)
132       LET C=N-A-B
133       IF C<A+B THEN
134          PRINT "(";A;",";B;",";C;")"
135          LET X=X+1
136       END IF
137    NEXT B
140 NEXT A
150 PRINT "N=";N;"のとき，総数は";X;"通りである"
160 END