program conta ;

var
  i : integer ;

begin
  i := 0 ;

  while (i <= 1000) do
    begin
      writeln (i) ;
      i := i+1 ;
    end ;
end.