10 INPUT N,M
20 FOR T=INT(N/1000) TO INT(M/1000)
21 I=T
30 S=(I-INT(I/10)*10)+(INT(I/10)-INT(I/100)*10)+INT(I/100):L=0:P=9
40 IF S<10 THEN P=S ELSE IF S>=19 THEN L=S-18 ELSE
50 FORJ=LTO P:FOR K=LTOP:FOR N=LTOP
60 IF S=J+K+N THEN C=(((I*10)+J)*10+K)*10+N:IF C<=M AND C>=N THEN PRINT C;:W=W+1
80 NEXT N,K,J,T:PRINT W