var
x,p,sq:real;
i:integer;
begin
x:=10.25;
p:=1;
while x<25 do
sq:= exp(ln(abs(x)) / 3.0) - 0.125;
p:=p * sin(sq)/cos(sq);
x:=x+1;
end;
writeln(p:0:8);
end.
