记录编号	19694	评测结果	AWWEWWEAAE
题目名称	核电站问题	最终得分	30
用户昵称	make	是否通过	未通过
代码语言	Pascal	运行时间	0.000 s
提交时间	2010-10-15 10:31:02	内存使用	0.11 MiB

program nucle;
var
 ans,n,m:longint;
 f1,f2:text;

procedure init;
begin
 assign(f1,'nucle.in'); reset(f1);
 assign(f2,'nucle.out'); rewrite(f2);
 readln(f1,n,m);
 close(f1);
 ans:=0;
end;

function aa(x,y:longint):longint;
var i,temp:longint;
begin
 temp:=1;
 i:=y;
 while i>0 do begin
  temp:=temp*x;
  x:=x-1;
  i:=i-1;
 end;
 aa:=temp;
end;

function cc(x,y:longint):longint;
begin
 cc:=aa(x,y) div aa(y,y);
end;


procedure play;
var i:longint;
begin
 for i:=1 to m-1 do ans:=ans+cc(n,i);
 for i:=m to n-1 do ans:=ans+(cc(n,i)-(n-i+1));
end;


begin
 init;
 play;
 writeln(f2,ans+1);
 close(f2);
end.