比赛代码 - COGS

比赛	20120419s	评测结果	AAAAAAAAAA
题目名称	猴子的争斗	最终得分	100
用户昵称	wo shi 刘畅	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2012-04-19 10:25:58

显示代码纯文本

var
  n,i,ans:longint;

begin
  assign(input,'merge.in'); reset(input);
  assign(output,'merge.out'); rewrite(output);
  readln(n);
  ans:=1;
  for i:=1 to n-2 do ans:=ans*n mod 10007;
  for i:=1 to n-1 do ans:=ans*i mod 10007;
  writeln(ans);
  close(input);
  close(output);
end.