10 FOR D = 0 TO 5
20    LET N(D)=0
30 NEXT D
40 FOR I = 1 TO 10
50    READ X
60    LET D = INT(X/1E4)
70    LET N(D) = N(D)+1
80 NEXT I
100 PRINT "        INCOME"
110 PRINT "AT LEAST","BUT BELOW","NUMBER OF PEOPLE"
120 FOR D = 0 TO 5
130    PRINT D*1E4,(D+1)*1E4,N(D)
140 NEXT D
900 DATA 15000,22500,7350,32700,51000,8400,12700,8100,29000,35460
999 END
                                                                                                                                                                                                                                                                                