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

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

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

var N :integer;

function decrease(N :integer) :integer;
begin
  if N > 0 then
  begin
    decrease := decrease(N - 1);
    write(N, ' ');
  end;
end;

begin
  decrease(5);
  readln();
end.