Problem
输出扬辉三角

Input
本题有测试数据，每组数据仅含一个整数N(N不大于34)。一组数据独占一行。

Output
对于每一组数据，先输出一个

Case #:
。其中#号代表第#组数据。接下来输出一个由数字组成的扬辉三角。一行中的数字之间用一个空格分开。行尾不要有多余的空格。
两组数据之间空开一行。

Sample Input
6
3

Sample Output
Case 1:
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1

Case 2:
1
1 1
1 2 1

``````````````````````````````````````````````````````````
program lx1008;
var
   i:integer;
procedure y;
var m,n,a,c,l:integer;
begin
  read(a);
  i:=i+1;
  writeln('Case ',i,';');

  l:=0;
  for m:=0 to a-1 do
    begin
      c:=1;
      write(c,' ');
      for n:=1 to m do
        begin
          c:=c*(m-n+1)div n;
          if c=1 then l:=l+1;
          if (m=a-1)and(l mod 2=0)and(c=1) then
              write(c)
          else write(c,' ');
        end;
        writeln;
     end;
  y;
end;
begin
  i:=0;
  y;
end.