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

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

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

var i,a,b: integer;
begin
  writeln('Введите первое число');
  readln(a);
  writeln('Введите второе число');
  readln(b);
    if (a>b) then
      for i:= a to b do
        write(i,' ')
    else
      for i:= b downto a do
        write(i,' ');
 readln();
end.