real a(8) f(n)=(1-t)**(3-n)*t**n*a(i+n+n) read*,a print'(i0xi0)',((nint(f(0)+3*f(1)+3*f(2)+f(3)),i=1,2),t=0,1,.1) end