program For3;
var
A,B:integer;
temp:integer;
i:integer;
begin
temp:=0;
repeat
writeln('Введите A и B:');
readln(A,B);
until (A<B);
for i:=B-1 downto A+1 do
begin
temp:=temp+1;
write(i,' ');
end;
writeln('количество чисел:',temp);
end.