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

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

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

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

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

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

program u10z2;
var a, b, n:integer;
begin
  writeln('vvedite  2 chisla');
  readln(a,b);
      if (a > b) then

        for n:= a to b do
         write(n)
      else
        if (a < b) then
        for n:= b downto a do
      write(n);
  readln();
end.