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

Урок 21

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

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

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

КОНСОЛЬ

5 4 3 2 1