langs a-z

Task/Loops-Foreach/Seed7/loops-foreach.seed7

@@ -0,0 +1,12 @@
+$ include "seed7_05.s7i";
+
+var array string: things is [] ("Apple", "Banana", "Coconut");
+
+const proc: main is func
+  local
+    var string: thing is "";
+  begin
+    for thing range things do
+      writeln(thing);
+    end for;
+  end func;