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

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

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

Решение:

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

Консоль:

5 6
5
6