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