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.