Data commit

Task/Loops-Break/Modula-3/loops-break.mod3

@@ -0,0 +1,17 @@
+MODULE Break EXPORTS Main;
+
+IMPORT IO, Fmt, Random;
+
+VAR a,b: INTEGER;
+
+BEGIN
+  WITH rand = NEW(Random.Default).init() DO
+    LOOP
+      a := rand.integer(min := 0, max := 19);
+      IO.Put(Fmt.Int(a) & "\n");
+      IF a = 10 THEN EXIT END;
+      b := rand.integer(min := 0, max := 19);
+      IO.Put(Fmt.Int(b) & "\n");
+    END;
+  END;
+END Break.