Решение задачи:
var
  i, n: integer;

begin
 
i := 1; 
 
readln(n);
 
repeat
   
  writeln(i);
   
  inc(i);  
 
until i = n;

end.