(* Test: REPEAT & EXIT statements *)

MODULE Main;

VAR
  i: INTEGER;

BEGIN
  REPEAT
    i := 1;
  UNTIL (i < 3);

  REPEAT
    i := 2;
    EXIT;
    i := 3;
  UNTIL (i < 3);

  REPEAT
    i := 4;
    REPEAT
      i := 5;
      EXIT;
      i := 6;
    UNTIL (i < 3);
    EXIT;
    i := 7;
  UNTIL (i < 3);

END Main.