if (i<1)
    writeln("error")
else
begin
    for j = 1 to i do fact = fact * i;
    x = x*x/fact;
    writeln(x);
end;