测试结果9:测试结果错误.错误结果为:812

正确结果应为:85713

测试结果10:测试结果错误.错误结果为:812

正确结果应为:3270436

我的程序

program Project1;

var

a,b:array[1..40000]of longint;

s:int64;

t,i,j,m,n:longint;

begin

readln(n);

for i:=1to 2*n do

if i mod 2=0 then a[i]:=i div 2

else if i mod 2=1 then begin inc(t); a[i]:=n+t; end;

m:=1;

repeat

inc(s); m:=a[m];

until (s<>0)and(m=1);

writeln(s);

readln(i);

end.