Решение задачи №3 из главы 10.1

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

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