Цикл for (разбор задачи 3 урока 10)

Условие
Задача 3 Урок 10.1

Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:

Если первое меньше второго, то в порядке возрастания, пример консоли:

    1
    5
    ответ: 1 2 3 4 5

Иначе в порядке убывания, пример консоли:

    5
    3
    ответ: 5 4 3

Проверить решение для пар значений:

10 20

-- должны увидеть все числа от 10 до 20, и для:

20 10

-- все числа от 20 до 10 в обратном порядке

Возможное решение

Для наглядности лучше завести отдельную переменную для вывода значений в цикле (здесь это переменная counter). Сначала небходимо определить, какое из чисел больше с помощью операторов if/else. Для последовательного вывода значений в прямом порядке используем конструкцию for...to..., для вывода в обратном порядке for...downto...

var i, j, counter: integer;
begin
  writeln('Vvedite i, j:');
  readln(i, j);
  if (i < j) then
    for counter := i to j do
      write(counter, ' ')
  else if (i > j) then
    for counter := i downto j do
      write(counter, ' ');
  readln();
end.