Даны два целых числа A и B (A amp;lt; B). Вывести

var

  A, B, N, i: integer;

begin

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

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

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

  if A lt; B then  Если А lt; 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.

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