СРОЧНО!!! Даны два целых числа A и B (A < B). Вывести в порядке убывания все целые числа, расположенные между A и B (не включая числа A и B), а также количество N этих чисел.

var a,b,n,i:integer;beginn:=0;read(a,b);for i:=b-1 downto a+1 dobegininc(n);write(i, ' ');end;writeln();writeln(n);end.