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

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

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

1
5
ответ: 1 2 3 4 5

Иначе в порядке убывания, пример консоли:

5
3
ответ: 5 4 3

Проверить решение для пар значений:

10 20

-- должны увидеть все числа от 10 до 20, и для:

20 10

-- все числа от 20 до 10 в обратном порядке

var
  i,a,b:integer;
begin
  writeln('Vvedite dva tselyh chisla');
  readln(a);
  readln(b);
  if (a>b) then
  for i:=b to a do
  write(i,'  ')
  else
  if (a<b) then
  for i:=b downto a do
  write(i,'  ');

  readln();
end. 

Консоль:

1.

Vvedite dva tselyh chisla
20
10
10  11  12  13  14  15  16  17  18  19  20

2.

Vvedite dva tselyh chisla
10
20
20  19  18  17  16  15  14  13  12  11  10