home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / pascal / pascsrc.arc / REPEATLP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  372 b   |  16 lines
  1.                                 (* Chapter 4 - Program 6 *)
  2. program Repeat_Loop_Example;
  3.  
  4. var Count : integer;
  5.  
  6. begin
  7.    Count := 4;
  8.    repeat
  9.       Write('This is in the ');
  10.       Write('repeat loop, and ');
  11.       Write('the index is',Count:4);
  12.       Writeln;
  13.       Count := Count + 2;
  14.    until Count = 20;
  15.    Writeln(' We have completed the loop ');
  16. end.