Initial data commit

Task/Loop-over-multiple-arrays-simultaneously/Modula-3/loop-over-multiple-arrays-simultaneously.mod3

@@ -0,0 +1,17 @@
+MODULE MultiArray EXPORTS Main;
+
+IMPORT IO, Fmt;
+
+TYPE ArrIdx = [1..3];
+
+VAR
+  arr1 := ARRAY ArrIdx OF CHAR {'a', 'b', 'c'};
+  arr2 := ARRAY ArrIdx OF CHAR {'A', 'B', 'C'};
+  arr3 := ARRAY ArrIdx OF INTEGER {1, 2, 3};
+
+BEGIN
+  FOR i := FIRST(ArrIdx) TO LAST(ArrIdx) DO
+    IO.Put(Fmt.Char(arr1[i]) & Fmt.Char(arr2[i]) &
+Fmt.Int(arr3[i]) & "\n");
+  END;
+END MultiArray.