100 OPTION ARITHMETIC NATIVE 110 OPEN #1:NAME "st31.csv", RECTYPE INTERNAL 120 ERASE #1 130 FOR a=0 TO 100 140 FOR b=0 TO 100-a 150 LET c=100-(a+b) 160 LET x2=(a-5)^2/5+(b-20)^2/20+(c-75)^2/75 170 LET p=fact(100)/fact(a)/fact(b)/fact(c)*0.05^a*0.2^b*0.75^c 180 WRITE #1:a,b,c,x2,p 190 NEXT b 200 NEXT a 210 CLOSE #1 220 END