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

var

A, B, N, i: integer;

begin

N: = 0; / / Обнуляем счетчик

writeln ('Введите числа A и B');

readln (A, B); / / Вводим А и B

if A < B then {Если А < B, то печатаем числа начиная с B и заканчивая A,

иначе наоборот}

for i: = B downto A do

begin

write (i, ' '); / / Печатаем i

inc (N); / / Увеличиваем счетчик на 1

end

else

for i: = A downto B do

begin

write (i, ' ');

inc (N);

end;

writeln;

writeln ('Количество N этих чисел равно: ', N); / / Выводим N

end.

Если все правильно, отметь решение как лучшее)