Дано натуральное число. вывести на экран все натуральные числа до заданного включительно

Var
    i, n: integer;

begin
    readln(n);
    for i := 1 to n do
    write(i,' ');
end.

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  1.To(ReadInteger('n=')).Print
end.

Тестовое решение
n= 21
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21