Вопрос, который вызвал трудности

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

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

// 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

Var
    i, n: integer;

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