for i=1to 300n=mod(i,3)*!instr(str$(i),"3")
if!n?"aho"
if n?i
next