PROGRAM repeat_loop_example;

VAR count : INTEGER;

BEGIN
  count := 4;
  REPEAT
    WRITE('This is in the ');
    WRITE('REPEAT loop, and ');
    WRITE('the index is',count:4);
    WRITELN;
    count := count + 2;
  UNTIL count = 20;
  WRITELN(' We have completed the loop ');
END.