total=0for i=100 to 10000 if i mod 3=0 and i mod 5=0 and i mod 7=0 then print i;" "; total=total+1 if total mod 5=1 then print end ifnext i
