program W implicit none real(16)::A(6) read*,A print"(f0.2)",(sum(A)-maxval(A)-minval(A))/4.0 end program W