limite = 100000
dim Q[limite+1]
cont = 0
Q[1] = 1
Q[2] = 1
for i = 3 to limite
	Q[i] = Q[i-Q[i-1]] + Q[i-Q[i-2]]
	if Q[i] < Q[i-1] then cont += 1
next i

print "Primeros 10 términos: ";
for i = 1 to 10
	print Q[i] + " ";
next i

print "Término número 1000:  "; Q[1000]
print "Términos menores que los anteriores: "; cont