clear
dime a(300)
m=1
for i=1 to 1000
if i%7=0 and i%11!=0
a(m)=i
m=m+1
endif
if i%11=0 and i%7!=0
a(m)=i
m=m+1
endif
endfor
for k=1 to 300
a(k)
endfo
clear
dime a(300)
m=1
for i=1 to 1000
if i%7=0 and i%11!=0
a(m)=i
m=m+1
endif
if i%11=0 and i%7!=0
a(m)=i
m=m+1
endif
endfor
for k=1 to 300
a(k)
endfo