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

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

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

var a,b,i:integer;

begin
  writeln('vvedite chisla A i B: ');
  readln(a, b);
  if a>b then
    for i:= b to a do
      write(i, ' ')
  else
    for i:= b downto a do
      write(i, ' ');
  readln();
end.