Урок 10.1 Задание 2

Задание 2 Урок 10.1

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

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

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

5
3
ответ: 5 4 3

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

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

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

var i, a,b: integer;
begin
 writeln('Введите значение переменной a:');
 readln(a);
 writeln('Введите значение переменной b:');
 readln(b);
  if (a<b) then
    for i:=a to b do
      write(i, ' ')
  else
    for i:=a downto b do
      write(i, ' ');
 
  readln();
end.   

Консоль:

Введите значение переменной a:
10
Введите значение переменной b:
20
10 11 12 13 14 15 16 17 18 19 20    

Консоль:

Введите значение переменной a:
20
Введите значение переменной b:
10
20 19 18 17 16 15 14 13 12 11 10