Задача 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 a, b, i: integer;
begin
  readln(a, b);
  if (a < b) then
    for i:=a to b do
      write(i, ' ')
  else
    for i:=b downto a do
      write(i, ' ');
  readln();
end.