Programmer 7500/MAX_PROGRAMMERS.iso/INFO/TURBOPAS/PASTUTOR.ZIP/WHILELP.PAS

Pascal/Delphi Source File | 1985-07-28 | 281 b | 14 lines

PROGRAM while_loop_example;

VAR counter : INTEGER;

BEGIN
  counter := 4;
  WHILE counter < 20 DO
  BEGIN
    WRITE('We are in the WHILE loop, waiting ');
    WRITE('for the counter to reach 20. It is',counter:4);
    WRITELN;
    counter := counter + 2;
  END;
END.