10 FOR I=100 TO 29920 SETP I I I+1 I+2 I+330 NEXT I40 FSP50 NEWP60 PRINT "P(100)=" P(100) "P(299)=" P(299)70 FLP80 PRINT "P(100)=" P(100) "P(299)=" P(299)#RUN P(100)= 0 0 0 0 P(299)= 0 0 0 0 P(100)= 100 101 102 103 P(299)= 299 300 301 302