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

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

function conclusionfive(n :integer) :integer;
begin
  if n > 0 then
  begin
    write(n, ' ');
    conclusionfive := conclusionfive(n - 1);  // Рекурсивный вызов. До тех пор пока  условие if не выплолнится
  end;
end;

begin
  conclusionfive(5);  // в функцию с аргументом 5
  readln();
end.             

Вывод консоли:

5 4 3 2 1