implicit none integer(8) i,m real(8) B,C,A real(8),dimension(6) :: x read(*,*) (x(m),m=1,6) A=sum(x) A=A-minval(x) A=A-maxval(x) write(*,'(f6.2)') A/4 end