      Solve f(x):

van=facebook.com/LearningCalculus$

f(x):= 1/(x+1)+1/(x+3)+1/(x+6)+1/(x+8)=
       1/(x+2)+1/(x+4)+1/(x+5)+1/(x+7)$

s:solve(f(x),x)$

for i: 1 thru 5 do
    print("Answer ", s[i]);

f(x):= (1/(x+1)+1/(x+3)+1/(x+6)+1/(x+8))-
       (1/(x+2)+1/(x+4)+1/(x+5)+1/(x+7));

fullratsimp(f(x));

factor(%);