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

var a, b: integer;beginwrite('Введите a, b>>');read(a, b);if a<b thenbeginwhile (b-1>a) dobeginb:=b-1;write (b, ' ');end;endelse write('Неверные условия')end.