Question

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

Answer 1

var
    i, n: integer;

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

Answer 2

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

Answer 3

прикольно. Спасибо