#include <basico.h>

algoritmo

    decimales '0'
    dimensionar(2) matriz de ceros (vaneck)

    iterar para (i=2, #(i<=1000), ++i )
         matriz.buscar en reversa(#(vaneck[i]),#(vaneck[1:i-1]))
         ---retener--- no es cero?, entonces{ menos'i' por'-1' }
         meter en 'vaneck'
    siguiente

    imprimir ( "Van Eck: first 10 terms  : ",#(vaneck[1:10]), NL,\
               "Van Eck: terms 991 - 1000: ", #(vaneck[991:1000]), NL)

terminar