{ Program: count.
  Purpose: Count from 1 to max
  Author:  Samuel A. Rebelsky
  Version: 1.0 of 26 January 2001
}
program count(output);

const max = 20;
var i: integer; { counter variable }

begin

  for i := 1 to max do
    writeln(i)

end.