home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / pascal_tut / pas / repeatlp < prev    next >
Encoding:
Text File  |  1992-11-14  |  283 b   |  16 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.
  16.