记录编号	26264	评测结果	AAAAAAAAAA
题目名称	排列	最终得分	100
用户昵称	reamb	是否通过	通过
代码语言	Pascal	运行时间	0.074 s
提交时间	2011-07-23 14:32:06	内存使用	0.16 MiB

program pailie;
var
  n,k,i,j:longint;
  f:array[1..100,0..100]of longint;
begin
  assign (input,'permutation.in');
  reset (input);
  assign (output,'permutation.out');
  rewrite (output);
    n:=100;
    for i:=1 to n do
      f[i,0]:=1;
    for i:=1 to n do
      for j:=1 to i-1 do
      begin
        f[i,j]:=f[i-1,j]*(j+1)+f[i-1,j-1]*(i-j);
        f[i,j]:=f[i,j] mod 2007
      end;
    repeat
      readln (n,k);
      writeln (f[n,k]);
    until eof;
  close (input);
  close (output)
end.