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

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

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

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