begin
  var arr: array of integer := new integer[ReadLnInteger('Введите кол-во судей:')];
  for var i := Low(arr) to High(arr) do arr[i] := Random(0, 10);
  Write('Оценки спортсмена: ');arr.Println(#32);
  WriteLnFormat('Итоговая оценка спортсмена: {0:f}', arr.Where(x -> not (x in [arr.Min, arr.Max])).Average);
end.