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

http://fkn.ktu10.com/?q=node/8612

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

program task3_lesson10;
var
   int,i:integer;
begin
     writeln('Enter integer :');
     readln(int);
     if (int > 100) then
        for i:=int downto 1 do
            writeln(i)
     else
         for i:=1 to int do
             writeln(i);
     readln();
end.