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

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

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

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