Question

Ввести натуральное число и вывести в строчку все числа от 1 до этого числа

Answer 1

1: 1
2: 1 2
3: 1 3
4: 1 2 4
5: 1 5
6: 1 2 3 6
7: 1 7
8: 1 2 4 8

Answer 2

var i,n:Integer;

Begin
readln(i);
for n:=1 to i do
   write(n, ' ');

readln;
end.