Data commit

Task/Loops-Break/Seed7/loops-break.seed7

@@ -0,0 +1,14 @@
+$ include "seed7_05.s7i";
+
+const proc: main is func
+  local
+    var integer: number is 0;
+  begin
+    repeat
+      number := rand(0, 19);
+      writeln(number);
+      if number <> 10 then
+        writeln(rand(0, 19));
+      end if;
+    until number = 10;
+  end func;