СРОЧНО!!! Даны два целых числа A и B (A < B). Вывести в порядке убывания все целые числа,...

Question

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

Answer 1

Var a,b,n,i:integer;
begin
n:=0;
read(a,b);
for i:=b-1 downto a+1 do
begin
inc(n);
write(i, ' ');
end;
writeln();
writeln(n);
end.