Даны два целых числа A и B (A < B). Вывести в порядке убывания все целые числа, расположенные между A и B (не включая числа A и B), а также количество N этих чисел - Pascal(Паскаль)

program f3;
var A, B, i, count: integer;
begin
    read(A, B);
    for i := B - 1 downto A + 1
        do write(i, ' ');
    count := (B - 1) - (A + 1) + 1;
    writeln;
    write( 'Количество чисел - ', count);
end.