Я формулы не нашёл. Зацепился за то что в условии сказано
Гарантируется, что ответ не превышает 100.
var
i, sum: longint;x: array[0..100] of longint;

begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
for i := 1 to 31 do begin read(x[i]);sum := sum + x[i]; end;
for i := 1 to 100 do
if (i * 31) - (i * 4) = sum then begin write(i);break; end;
end.
И она пошла на 100 балов.