记录编号	49713	评测结果	AAAAAAAAAA
题目名称	K 上升段	最终得分	100
用户昵称	digital-T	是否通过	通过
代码语言	Pascal	运行时间	0.000 s
提交时间	2012-11-08 21:05:49	内存使用	0.17 MiB

var
n,k,i,j:longint;
f:array[0..20,0..20]of int64;
begin
assign(input,'k.in');reset(input);
assign(output,'k.out');rewrite(output);
fillchar(f,sizeof(f),0);
read(n,k);
for i:=1 to n do f[i,i]:=1;
for i:=1 to n do
 for j:=1 to k do
  if i<>j then f[i,j]:=f[i-1,j]*j+f[i-1,j-1]*(i-j+1);
write(f[n,k]);
close(input);
close(output);
end.