var a: integer; b, c: real;
begin
  b := 0;
  c := 1;
  for a := 0 to 8 do
  begin
    b := b + c;
    c := c / 3;
  end;
  writeln(b:0:4);
end.