var i,a,b: integer;begin write('Введите два целых числа через пробел: '); readln(a,b); writeln(' '); // для отступа, если пользователь вводит числа отдельно, не через пробел if a>=b then for i:=a downto b do writeln(i) else for i:=a to b do writeln(i);end.