урок 10 задача 2

урок 10 задача 2

Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:
Если первое больше второго то в порядке возрастания, пример консоли:
?
1
2
3
1
5
ответ: 1 2 3 4 5
Иначе в порядке убывания, пример консоли:
?
1
2
3
5
3
ответ: 5 4 3

var a, b, i: integer;

  begin

    writeln('Введите два числа не равных друг другу');
    readln(a,b);

    if (a < b) then
      for i := a to b do
      write(i, ' ')
    else
      for i := a downto b do
      write(i, ' ');

    readln;

 end.