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

Var a,b,k:integer;
begin
readln(a.b); {вводить числа по условию a<b}
for b<>a do begin
b:=b-1; inc(k); writeln(b); end;
writeln('количество = ',k);
readln;
end.