Урок №10.1 Задание 3

Урок №10.1 Задание 3

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

program Pr10_1_3;

var a,b,i:integer;

begin
  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.

Консоль:

10
5
5 6 7 8 9 10

5
10
10 9 8 7 6 5