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

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

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

Решение:

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