Задача 3 Урок 10.1

Задача 3 Урок 10.1:

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.

var i, a: integer;
  begin
    writeln('vvedite celoe chislo');
    readln(a);
    if (a>100) then
    for i:=a downto 1 do
        begin
          write(i,' ')
        end
    else for i:=1 to a do
        begin
          write(i,' ')
        end;
    readln();
  end.

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

vvedite celoe chislo
20
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20