var  s,sr : integer;
procedure sredn(n, k: integer; var sum,sred :integer);
var c : integer;
begin
  write( ' k[',n,'] = ' );  read(c);
  sum := sum +c;
  if n < k then  sredn(n + 1, k, sum,sred)
  else 
    begin
      sred := sum;  
      sum := 0;
    end;
  if (c >= sred / k - 1) and (c <= sred/k + 1) then  sum := sum + c;
  if n = 1 then  writeln ('summa = ',sum);
end;
begin
  s := 0;  sr := 0;
  sredn(1,10,s,sr); //первый параметр изначально 1 по умолчанию, второй - количество элементов
end.
 

CnZhciAgcyxzciA6IGludGVnZXI7CnByb2NlZHVyZSBzcmVkbihuLCBrOiBpbnRlZ2VyOyB2YXIgc3VtLHNyZWQgOmludGVnZXIpOwp2YXIgYyA6IGludGVnZXI7CmJlZ2luCiAgd3JpdGUoICcga1snLG4sJ10gPSAnICk7ICByZWFkKGMpOwogIHN1bSA6PSBzdW0gK2M7CiAgaWYgbiA8IGsgdGhlbiAgc3JlZG4obiArIDEsIGssIHN1bSxzcmVkKQogIGVsc2UgCiAgICBiZWdpbgogICAgICBzcmVkIDo9IHN1bTsgIAogICAgICBzdW0gOj0gMDsKICAgIGVuZDsKICBpZiAoYyA+PSBzcmVkIC8gayAtIDEpIGFuZCAoYyA8PSBzcmVkL2sgKyAxKSB0aGVuICBzdW0gOj0gc3VtICsgYzsKICBpZiBuID0gMSB0aGVuICB3cml0ZWxuICgnc3VtbWEgPSAnLHN1bSk7CmVuZDsKYmVnaW4KICBzIDo9IDA7ICBzciA6PSAwOwogIHNyZWRuKDEsMTAscyxzcik7IC8v0L/QtdGA0LLRi9C5INC/0LDRgNCw0LzQtdGC0YAg0LjQt9C90LDRh9Cw0LvRjNC90L4gMSDQv9C+INGD0LzQvtC70YfQsNC90LjRjiwg0LLRgtC+0YDQvtC5IC0g0LrQvtC70LjRh9C10YHRgtCy0L4g0Y3Qu9C10LzQtdC90YLQvtCyCmVuZC4K

MSAyIDMgNCA1IDYgNyA4IDkgMTA=

1 2 3 4 5 6 7 8 9 10