//fpc 3.0.0 program imprimir_numeros_hasta_N; var n,i : integer; begin read(n); i := 1; while ( i <= n ) do begin write(i,' '); i := i+1; end; end.