Data update

Task/Loops-Break/EasyLang/loops-break.easy

@@ -1,6 +1,6 @@
 repeat
-   a = randint 20
+   a = random 20 - 1
    print a
    until a = 10
-   print randint 20
+   print random 20 - 1
 .

Task/Loops-Break/Oberon-07/loops-break.oberon

@@ -0,0 +1,23 @@
+MODULE LoopsBreak;
+IMPORT
+    RandomNumbers, Out;
+
+PROCEDURE Do();
+    VAR rn   : INTEGER;
+        exit : BOOLEAN;
+    BEGIN
+        exit := FALSE;
+        REPEAT
+            rn := RandomNumbers.randomInt( 20 );
+            Out.Int( rn, 0 );Out.Ln;
+            exit := rn = 10;
+            IF ~ exit THEN
+                rn := RandomNumbers.randomInt( 20 );
+                Out.Int( rn, 0 );Out.Ln
+            END
+        UNTIL exit;
+    END Do;
+
+BEGIN
+    Do
+END LoopsBreak.