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

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

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

var n1:integer;
function vivod(N:integer):integer;
begin
  if n>1 then
  begin
    write(n);
    result:=vivod((n-1));
  end
  else
    result:=n;
end;
begin
  n1:=5;
  write(vivod(n1));
  readln();
end.