Даны два целых числа 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.

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