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

uses crt;
var a,b,k:integer;
begin
readln(a,b);
k:=0;
repeat
inc(k);
dec(b);
writeln(b);
until b-1=a;
writeln('Количество= ',k);
readln;
end.

Uses
 CRT;
Var
 i,a,b:integer;
begin
ClrScr;
repeat
 readln(a,b);
until a<b;
for i:=b-1 downto a+1 do
begin
 write(i:3);
end;
end.