Program zad1;
  var n,x,i,j,s,m,e:integer;
  a:array[1..100]of integer;
  r:real;
Begin
  m:=0;
  read(x);
  while (x<>-1)and(m<100) do
  begin
    m:=m+1;
    a[m]:=x;
    e:=e+a[m];
	read(x);
  end;
 for i:=1 to m do
  writeln(a[i]);
  r:=e/m;
  writeln(r :4:2);
End.
    