#!/usr/bin/env perl

use strict;
use utf8;
use warnings;

my $line = <>;
my @vs = split(/ /, $line);

@vs = sort {$a <=> $b} @vs;

my $sum = 0.0;
for (my $i = 1; $i < @vs - 1; $i++) {
  $sum += $vs[$i];
}
$sum /= @vs - 2;
$sum = int($sum * 100) / 100;
printf "%.2f\n", $sum;