Run Code  | API  | Code Wall  | Misc  | Feedback  | Login  | Theme  | Privacy  | Patreon 

imprimir_numeros_hasta_N

//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.
 run  | edit  | history  | help 0