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

Урок 21 Задача 1:

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

procedure konsol (n: integer);
begin
  if not (n<1) then
  begin
    write (n, '  ');
    n:= n-1;
    konsol (n);
  end;
end;

begin
  konsol (11);
  readln();
end.

Вывод в консоли:

11  10  9  8  7  6  5  4  3  2  1