pascal 编程 问题

3. 传球游戏
(ball.pas/c/cpp)
【问题描述】
上体育课的时候，小蛮的老师经常带着同学们一起做游戏。这次，老师带着同学们一起做传球游戏。
游戏规则是这样的：n个同学站成一个圆圈，其中的一个同学手里拿着一个球，当老师吹哨子时开始传球，每个同学可以把球传给自己左右的两个同学中的一个（左右任意），当老师在此吹哨子时，传球停止，此时，拿着球没有传出去的那个同学就是败者，要给大家表演一个节目。
聪明的小蛮提出一个有趣的问题：有多少种不同的传球方法可以使得从小蛮手里开始传的球，传了m次以后，又回到小蛮手里。两种传球方法被视作不同的方法，当且仅当这两种方法中，接到球的同学按接球顺序组成的序列是不同的。比如有三个同学1号、2号、3号，并假设小蛮为1号，球传了3次回到小蛮手里的方式有1->2->3->1和1->3->2->1，共2种。

【输入】
输入文件ball.in共一行，有两个用空格隔开的整数n，m（3<=n<=30，1<=m<=30）。
【输出】
输出文件ball.out共一行，有一个整数，表示符合题意的方法数。
【输入输出样例】
ball.in ball.out
3 3 2
【限制】
40%的数据满足：3<=n<=30，1<=m<=20
100%的数据满足：3<=n<=30，1<=m<=30
program a1;
var i,n,m,m1,s:longint;
procedure find(i,m1:longint);
begin
if m1=m then begin if i=1 then begin s:=s+1;exit;end;end
else if i+1>n then begin find(1,m1+1);find(i-1,m1+1);end
else if i-1=1 then begin if m1=m-1 then begin s:=s+1;find(i+1,m1+1);exit;end;end
else if i+1=1 then begin find(i-1,m1+1);exit;end
else if i-1<1 then begin find(i+1,m1+1);find(n,m1+1);end
else begin find(i+1,m1+1);find(i-1,m1+1);end;
end;
begin
i:=1;
m1:=0;
read(n,m);
find(i,m1);
write(s);
end.

program JayGuy;
var
n,m,i,j:longint;
a,b:array [1..30] of longint;
begin
readln(n,m);
fillchar(a,sizeof(a),0);
a[1]:=1;
for i:=1 to m do
begin
fillchar(b,sizeof(b),0);
for j:=1 to n do
begin
if j=1 then inc(b[j],a[n]) else inc(b[j],a[j-1]);
if j=n then inc(b[j],a[1]) else inc(b[j],a[j+1]);
end;
a:=b;
end;
writeln(a[1]);
end.