For3. даны два целых числа А и В (А<В). Вывести в порядке убывания все целые числа, расположенные между А и В (не включая числа (А и В), а также количество N этих чисел.

var a, b: integer;
begin
write('Введите a, b>>');
read(a, b);
if a<b then
begin
while (b-1>a) do
begin
b:=b-1;
write (b, ' ');
end;
end
else write('Неверные условия')
end.