Даны два целых числа a и b (a < b). найти все целые числа, располо-
женные между данными числами (не включая сами эти числа), в порядке
их убывания, а также количество n этих

program AandB;

var

 A, B, N, i: Integer;

begin

 Write ('Введите A и B (A < B)');

 ReadLn (A, B);

 WriteLn;

 N := 0;

 if A < B then begin

   for i := B - 1 downto A + 1 do begin

     Write (i, ' ');

     Inc (N);

   end;

   WriteLn;

   WriteLn ('N = ', N);

 end else

   WriteLn ('Условие не выполнено.');

 ReadLn;

end.