PROGRAM WORDS;  {this shows how to program the computer to write to the screen}
VAR
  COUNT : INTEGER;
  N       : INTEGER;
BEGIN
  WRITELN('this is the WORDS program;');
  WRITELN('you can use it to learn about WRITELN statements.');
  WRITE('type a number between 5 and 10 followed by <CR>:');
  READLN(COUNT);              {your turn to tell the program something}
  FOR N := 1 TO COUNT DO
    WRITELN('the value of N is:',   N);
  WRITELN('-------------all done now!-------------');
END.