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

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

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

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

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

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

5
3
ответ: 5 4 3

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

10 20

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

20 10

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

//Но почему в задании сказано, что числа должны быть между,
//а в примере выводятся все числа?
//Вот мой вариант:
var a, b, i:integer;
begin
  readln(a, b);
  if (a > b) then
    for i:=a-1 downto b+1 do
        write(i, ' ')
  else for i:=a+1 to b-1 do
           write(i, ' ');
  readln();
end.