begin
  var arr := ReadArrInteger('Введите 8 целых чисел (через пробел):', 8);
  WriteLn('Среднее арифметическое:', arr.Average);
  WriteLn('Кол-во чисел меньше среднего арифметического: ', arr.Where(x -> x < arr.Average).Count);
  WriteLn('Кол-во чисел больше среднего арифметического: ', arr.Where(x -> x > arr.Average).Count);
end.