uses crt;

var
	res, x : real;
	i, n : integer;

BEGIN
	writeln("Enter X:")
	readln(x);

	writeln("Enter N:")
	readln(n);


	res := 1;
	for (i := 1) to n do
		res := res * (n + 2 + (ln(n * x) / ln(10))) / (2 * n);

	writeln("Result" + res);
END