PROGRAM printout_example;

VAR index : BYTE;

BEGIN
WRITELN(output,'Printer program example');
WRITELN(output,'Turn on your printer and install paper in it.');
WRITELN(lst,'This is to demonstrate printing in Pascal');
WRITELN(lst);
FOR index := 1 TO 15 DO
BEGIN
  WRITE(lst,'The index value is ');
  WRITE(lst,index:3);
  WRITELN(lst,' at this point');
END;
END.