Даны два целых числа 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. Если все правильно, отметь решение как лучшее)