dim a(8)
for i=1to 8input""a(i)next
for b=0to 10t=b/10
w=1-t
for n=0to 1?w^3*a(1+n)+3*w^2*t*a(3+n)+3*w*t^2*a(5+n)+a(7+n)*t^3;next
?next