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

Var a,b,n,i:integer;
begin
n:=0;
read(a,b);
for i:=b-1 downto a+1 do
begin
inc(n);
write(i, ' ');
end;
writeln();
writeln(n);
end.