dim x as integer,dim sum as integer
for x=1 to 100
if x mod 3 =0 then
sum=sum+x
end if
next x
print sum