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

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

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

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

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

var
  i,a,b:integer;
begin
  writeln('vvedite chislo a');
  readln(a);
  writeln('vvedite chislo b');
  readln(b);
    if (a>b) then
      for i:=b to a do
        write(i, ' ')
    else
      for i:=b downto a do
        write(i, ' ');
  readln();
end.