задача 1 урок 21

задача 1 урок 21

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

program task_1_lesson21;
function chislo(n: integer): integer;
begin
  if n <> 0 then
    begin
      write(n);
      result := chislo(n - 1);
    end;
end;

var
  n: integer;
begin
  readln(n);
  chislo(n);
  readln
end.

Процедура

procedure chislo(n: integer);
begin
  if n = 1 then
    write(n)
  else
  begin
    write(n, ' ');
    chislo(n - 1);
  end;
end;

var
  n: integer;
begin
  readln(n);
  chislo(n);
  readln
end.

Консоль

9
9 8 7 6 5 4 3 2 1