Даны два целых числа A и В. Выведите все числа от A до B включительно, в порядке возрастания, если A < B, или в порядке убывания в противном случае

program zz1;

var a, b, i:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

if a < b / / проверяем условие, если первое число меньше второго, то

then for i:=a to b do write (i, ' ') / / выводим ответ по возрастанию

else for i:=a downto b do write (i, ' '); / / иначе, выводим ответ по убыванию

end.