var i, i1, i2, a, r1, r2: integer;
begin
     readln(a);
     i1 := 2;
     i2 := 1;
     r1 := 1;
     r2 := 1;
     for i := 1 to 6 do
     begin
          r1 := r1 * (a - i1);
          r2 := r2 * (a - i2);
          i1 := i1 * 2;
          i2 := i2 * 2 + 1;
     end;
     if not (r2 = 0) then writeln(r1 / r2)
        else writeln('No result');
end.