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

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

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

var N :integer;

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

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