uses console

int limite = 100000

dim long Q[100000]
long i, 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 terminos: "
For i = 1 To 10
    print Q(i) " ";
Next i
print cr

printl "Termino numero 1000:  " Q(1000)

printl "Terminos menores que los anteriores: " cont

printl cr "Enter ..."
waitkey