{ 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;

procedure count(top: integer);
  var i: integer; { counter variable }
begin
  for i := 1 to top do
    writeln(i + 0.0)
end;

begin
  count(max)
end.