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

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

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

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