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