В соревнованиях по фигурному катанию N судей независимо выставляют оценки спортсмену. Затем из объявленных оценок удаляют самую высокую (одну, если самую высокую оценку выставили несколько судей). Аналогично поступают с самой низкой оценкой. Для оставшихся оценок вычисляется среднее арифметическое, которое и становится зачетной оценкой. По заданным оценкам судей определите зачетную оценку спортсмен — Pascal(Паскаль)

const
  maxN = 10;
var
  marks: array [1..maxN] of Real;
  min, max, s: Real;
  n, i: Integer;
begin
  Write('KoJIu4ecmBo cygeu*: ');
  ReadLn(n);
  Write('Ou,eHku: ');
  min := 1e10;
  max := 0;
  s := 0;
  for i := 1 to n do
  begin
    Read(marks[i]);
    if marks[i] < min then
      min := marks[i];
    if marks[i] > max then
      max := marks[i];
    s := s + marks[i];
  end;
  ReadLn;
  WriteLn('3a4emHa9 ou,eHka ', (s - min - max) / (n - 2) :0:2);
  ReadLn;
 end.