real::S(6) read *,S print '("0",f0.2)', (SUM(S)-MAXVAL(S)-MINVAL(S))/4.0 end