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

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

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

var N :integer;

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

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