Даны два целых числа A и B.
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.