var

a:cardinal;

i:cardinal;

max:cardinal;

procedure shu(x:cardinal);

var k,j:cardinal;

begin

inc(max);

j:=x div 2;

if x>1 then

for k:=1 to j do

shu(k);

end;

begin

readln(a);

max:=0;

for i:=1 to (a div 2) do shu(i);

write(max+1);

end.

为什么我用longint 第一组超时 有integer 最后一组 错误

而用这个cardinal 过了