Var A,B,i:real;
Begin
A:=1;
B:=0;
i:=-1;
While A>0 do
 Begin
  Read(A);
  i:=i+1;
  B:=B+A;
 End;
Write(B/i)
End.