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

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

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

Если первое больше второго то в порядке возрастания, пример консоли:

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

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

5
3
ответ: 5 4 3

var i, a, b: integer;
begin
  writeln('Введите два числа:');
  readln(a, b);
  write('Ответ: '); // "ответ" пишем до начала цикла, чтобы он прописался только один раз
  if (b > a ) then     // условие, если первое число больше, чем второе
    for i:=a to b do   // цикл в порядке возрастания от первого до второго числа
      write(i, ' ')    // прописываем счетчик цикла
  else                 // иначе
    for i:=a downto b do    // цикл в порядке убывания от первого до второго числа
      write(i, ' ');   // прописываем счетчик цикла
  readln();
end.  

Вывод в консоли:

Введите два числа:
1
8
Ответ: 1 2 3 4 5 6 7 8

Введите два числа:
14
2
Ответ: 14 13 12 11 10 9 8 7 6 5 4 3 2

5
3
ответ: 5 4 3