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

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

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

var i, a: integer;
begin
    a:=10;

    if (a > 100) then
        for i:=a downto 1 do
            write(i, ' ')
    else
        for i:=1 to a do
            write(i, ' ');

    readln();
end. 

КОНСОЛЬ:

1 2 3 4 5 6 7 8 9 10