Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/BPAS9.ZIP/WHILEBOO.PAS

Pascal/Delphi Source File | 1990-05-26 | 281 b | 15 lines

PROGRAM WhileBoolean;
VAR
  Counter  :  Integer;
  Done     :  Boolean;
BEGIN
  Writeln( 'While Boolean' );
  Counter := 1;
  Done    := False;
  WHILE NOT Done DO
  BEGIN
    Writeln( Counter );
    Counter  := Succ( Counter )
    Done := (Counter > 10);
  END
END.