Question

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

Answer 1

var a,b,k:integer;
begin
readln(a.b); {вводить числа по условию a<b}
for b<>a do begin
b:=b-1; inc(k); writeln(b); end;
writeln('количество = ',k);
readln;
end.