program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
k: integer;
x, t, s: double;
begin
write('x=');
readln(x);
k := 1;
s := 0;
t := 1;
while k <= 9 do
begin
t := t * ln(3) * x / k;
s := s + t;
k := k + 1;
end;
writeln('Summa=', s:5:3);
readln
end.