Data commit

Task/Van-Eck-sequence/Modula-2/van-eck-sequence.mod2

@@ -0,0 +1,30 @@
+MODULE VanEck;
+FROM InOut IMPORT WriteCard, WriteLn;
+
+VAR i, j: CARDINAL;
+    eck: ARRAY [1..1000] OF CARDINAL;
+
+BEGIN
+    FOR i := 1 TO 1000 DO
+        eck[i] := 0;
+    END;
+    FOR i := 1 TO 999 DO
+        j := i-1;
+        WHILE (j > 0) AND (eck[i] <> eck[j]) DO
+            DEC(j);
+        END;
+        IF j <> 0 THEN
+            eck[i+1] := i-j;
+        END;
+    END;
+
+    FOR i := 1 TO 10 DO
+        WriteCard(eck[i], 4);
+    END;
+    WriteLn();
+
+    FOR i := 991 TO 1000 DO
+        WriteCard(eck[i], 4);
+    END;
+    WriteLn();
+END VanEck.