double x,y,z;
{
	rd(x);
	for(y=x?0:0;x<16384;++x)z=sin(x)/x,y+=z*z;
	wt(y+.5/--x);
}