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