记录编号	33665	评测结果	WEEEEEEEEE
题目名称	sumcount	最终得分	0
用户昵称	echo	是否通过	未通过
代码语言	Pascal	运行时间	0.137 s
提交时间	2011-11-11 16:43:59	内存使用	0.12 MiB

program sumcount;
var
  n,a,b,p,i,ans,nb,a1,nba,b1,ba:longint;
begin
  assign(input,'sumcount.in');
  assign(output,'sumcount.out');
  reset(input);
  rewrite(output);
  readln(n,a,b,p);
  nb:=1;
  a1:=1;
  nba:=1;
  b1:=1;
  ba:=1;
  for i:=1 to n+b do nb:= nb*i;
  for i:=1 to a do a1:=a1*i;
  for i:=1 to (n+b-a) do nba:=nba*i;
  for i:=1 to b do b1:=b1*i;
  for i:=1 to b-a do ba:=ba*i;
  ans:=(nb div(a1*nba)-b1 div(a1*ba)) mod p;
  writeln(ans);
  close(input);
  close(output);
end.