Program summa;
uses crt;
var m:integer;
x,s,n: real;
begin
clrscr;
s:=0;
writeln('BBeDuTE 4uCJIA');
repeat
readln(n);
s:=s+n;
m:=m+1;
until n=0;
writeln(s / m);
readln;
end.