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

Uses
 CRT;
var
 a,b,i:integer;
Begin
ClrScr;
repeat
 write('vvedite a and b: ');
 Readln(a, b);
until a<b;
for i:=b-1 downto a+1 do
begin
 Write(i:3);
end;
writeln;
write('Kol:=',b-a-1);
Readln
End.