题目描述

　农夫John和他的朋友们一同去参加Cownty展览会。Cownty 展览会的门票为50。John发现一个奇怪的现象：在排队购票的2n个人中，总有n个人拿的是面值为100元的钞票，而另外的n个人拿的是面值为$50元的钞票。农夫John想知道这种情况下2n个人共有多少种排队方式，使用售票处不至于找不开钱的局面（假设售票处原来没有零钱的情况）？

输入

n(n<=100)

输出.

排队总数

思路

令f(m,n)表示有m个人手特50的钞票，n个人手持100钞票时总共有的方案数。n=0时那么m个人的排队方案总数为1,即f(m,0)=1;
当m

var
  a:array[-1..100,-1..100]of int64;
  i,j,k,n,m:longint;
begin
  readln(n);
  k:=n;
  for i:=0 to n do
    for j:=0 to k do
      begin
        if j=0 then a[i,j]:=1
          else if i