(* Chapter 4 - Program 6 *)
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.




{ Result of execution

This is in the repeat loop, and the index is   4
This is in the repeat loop, and the index is   6
This is in the repeat loop, and the index is   8
This is in the repeat loop, and the index is  10
This is in the repeat loop, and the index is  12
This is in the repeat loop, and the index is  14
This is in the repeat loop, and the index is  16
This is in the repeat loop, and the index is  18
 We have completed the loop

}