var  s,sr : integer;
procedure sredn(n, k: integer; var sum,sred :integer);
var c : integer;
begin
  write( ' k[',n,'] = ' );  readln(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,5,s,sr); //первый параметр изначально 1 по умолчанию, второй - количество элементов
end.
 

CnZhciAgcyxzciA6IGludGVnZXI7CnByb2NlZHVyZSBzcmVkbihuLCBrOiBpbnRlZ2VyOyB2YXIgc3VtLHNyZWQgOmludGVnZXIpOwp2YXIgYyA6IGludGVnZXI7CmJlZ2luCiAgd3JpdGUoICcga1snLG4sJ10gPSAnICk7ICByZWFkbG4oYyk7CiAgc3VtIDo9IHN1bSArYzsKICBpZiBuIDwgayB0aGVuICBzcmVkbihuICsgMSwgaywgc3VtLHNyZWQpCiAgZWxzZSAKICAgIGJlZ2luCiAgICAgIHNyZWQgOj0gc3VtOyAgCiAgICAgIHN1bSA6PSAwOwogICAgZW5kOwogIGlmIChjID49IHNyZWQgLyBrIC0gMSkgYW5kIChjIDw9IHNyZWQvayArIDEpIHRoZW4gIHN1bSA6PSBzdW0gKyBjOwogIGlmIG4gPSAxIHRoZW4gIHdyaXRlbG4gKCdzdW1tYSA9ICcsc3VtKTsKZW5kOwpiZWdpbgogIHMgOj0gMDsgIHNyIDo9IDA7CiAgc3JlZG4oMSw1LHMsc3IpOyAvL9C/0LXRgNCy0YvQuSDQv9Cw0YDQsNC80LXRgtGAINC40LfQvdCw0YfQsNC70YzQvdC+IDEg0L/QviDRg9C80L7Qu9GH0LDQvdC40Y4sINCy0YLQvtGA0L7QuSAtINC60L7Qu9C40YfQtdGB0YLQstC+INGN0LvQtdC80LXQvdGC0L7QsgplbmQuCg==

MQoxMDAwCjEwMDAKMTAwMAoz

1
1000
1000
1000
3