Задача 2 Урок 21

Урок 21

Дано целое положительное число N.
Выведите на экран все число от 1 до N (по возрастанию).

var n: integer;

procedure path(n: integer);
begin
  if n > 0 then
  begin
    path(n - 1);
    write(n, ' ');
  end;
end;

begin
  n := 5;
  path(n);
  readln();
end.

КОНСОЛЬ

1 2 3 4 5