Initial data commit

Task/Van-Eck-sequence/FreeBASIC/van-eck-sequence.basic

@@ -0,0 +1,20 @@
+Const limite = 1000
+
+Dim As Integer a(limite), n, m, i
+
+For n = 0 To limite-1
+    For m = n-1 To 0 Step -1
+        If a(m) = a(n) Then a(n+1) = n-m: Exit For
+    Next m
+Next n
+
+Print "Secuencia de Van Eck:" &Chr(10)
+Print "Primeros 10 terminos: ";
+For i = 0 To 9
+    Print a(i) &" ";
+Next i
+Print Chr(10) & "Terminos 991 al 1000: ";
+For i = 990 To 999
+    Print a(i) &" ";
+Next i
+End