Используется Pascal 3.5.1 сборка 2256 (от 16.10.2019):
function Factorial(n: integer): integer;
begin
Result := 1;
for var i:=2 to n do
Result *= i;
end;
function Power(a: integer; n: integer): integer;
begin
Result := 1;
for var i:=1 to n do
Result *= a;
end;
var
an:real;
n:=ReadInteger;
begin
an:=Power(Factorial(n),2)/Factorial(Power(2,Power(n,2)));
writeln(an);
end.
