Задача 2 урок 20

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

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

var N :integer;

function num(N:integer):integer;
begin
  if(N <> 1) then
    result :=  num(N-1);
  writeln(N);
end;

begin
  readln(N);
  num(N);
  readln();
end.