(%i1)

p:[0,1,2,3,4,5,6,5,4,3,2,1]/36;

(%i2)

sum(p[s]^2/(p[s]+p[7]),s,4,10)+8/36-p[7]/2;

(%i3)

float(%), numer;

---

Created with wxMaxima.