Time for an 2014 update…

Task/Loops-Nested/Seed7/loops-nested.seed7

@@ -0,0 +1,28 @@
+$ include "seed7_05.s7i";
+
+const proc: main is func
+  local
+    var integer: i is 0;
+    var integer: j is 0;
+    var array array integer: a is 10 times 10 times 0;
+    const EXCEPTION: FOUND20 is enumlit;
+  begin
+    for i range 1 to 10 do
+      for j range 1 to 10 do
+        a[i][j] := rand(1, 20);
+      end for;
+    end for;
+    block
+      for i range 1 to 10 do
+        for j range 1 to 10 do
+          write(a[i][j] lpad 2 <& ", ");
+          if a[i][j] = 20 then
+            raise FOUND20;
+          end if;
+        end for;
+        writeln;
+      end for;
+    exception
+      catch FOUND20: writeln;
+    end block;
+  end func;