dim sum,isum = 0for i = 200 to 2000 if i mod 4 = 2 and i mod 7 = 3 and i mod 9 = 5 then sum = sum + i end ifnextprint sum
