home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / PASTUTOR.ZIP / REPEATLP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-07-28  |  297 b   |  15 lines
  1. PROGRAM repeat_loop_example;
  2.  
  3. VAR count : INTEGER;
  4.  
  5. BEGIN
  6.   count := 4;
  7.   REPEAT
  8.     WRITE('This is in the ');
  9.     WRITE('REPEAT loop, and ');
  10.     WRITE('the index is',count:4);
  11.     WRITELN;
  12.     count := count + 2;
  13.   UNTIL count = 20;
  14.   WRITELN(' We have completed the loop ');
  15. END.