Important Notice

The pages on this site contain documentation for very old MS-DOS software, purely for historical purposes. If you're looking for up-to-date documentation, particularly for programming, you should not rely on the information found here, as it will be woefully out of date.

  ◄Example► ◄Contents► ◄Index►                                    ◄Back►
 
PROGRAM qwhile;
 
{ QWHILE.PAS : Demonstrates WHILE loop. }
 
VAR
    count : Integer;
 
BEGIN
 
    count := 0;
 
    WHILE count < 10 DO
        BEGIN
        Writeln( 'count = ', count );
        count := count + 2;
        END;
 
END.