function getAverage(a: array of real; k: integer): real;
begin
  result := 0;
  for var i := 0 to a.High do
    if i <> k then
      result += a[i];
  result := result / (a.Length - 1);
end;

begin
  var n := 5;
  writeln($'введите последовательность из {n} чисел: ');
  var a := ReadArrReal(n);
  var b := new real [n];
  
  for var i := 0 to b.High do
  begin
    b[i] := getAverage(a, i);
    writeln('b',i+1,': ',b[i])
  end;
 
end.