var
  a, i, sr: integer;

begin
  repeat 
    readln(a);
    sr := sr + a;
    i := i + 1
  until a = 0;
  sr := sr div (i-1);
  writeln('srednee arifmeticheskoe = ', sr);
end.