what is test #5? why did I have wa



var k,n,s,j,max:integer;
a:array [0..100000] of integer;
b:array [1..10] of integer;
begin
a[1]:=1;   a[0]:=0;
for k:=2 to 10000 do
begin
if k mod 2 =0 then a[k]:=a[k div 2] else
a[k]:=a[k div 2]+a[(k div 2)+1];
end;
k:=0;
while not eof do
begin
k:=k+1;
readln(b[k]);
end;
n:=k-1;
for k:=1 to n do
begin
max:=0;
s:=b[k];
for j:=1 to s do
begin
if a[j]>max then max:=a[j];
end;
writeln(max);
end;
end.