谁帮我看看为什么错两个点啊？

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案错误...

　├ 标准行输出 3

　├ 错误行输出 2

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案错误...

　├ 标准行输出 5

　├ 错误行输出 1

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：80 有效耗时：0ms

Program Raoyu;

Const MaxN=140000;

Var L,R,W:Array[1..MaxN]of Longint;

　　 A:Array[1..MaxN]of Boolean;

　　 N,M,I,J,X,Y,Root:Longint;

Function Calc(X:Longint):Boolean;

Begin

If(L[X]=0)And(R[X]=0)Then

　　Exit(A[X]);

Case W[X] of

　　1:A[X]:=Calc(L[X]) And Calc(R[X]);

　　2:A[X]:=Calc(L[X]) Or Calc(R[X]);

　　3:A[X]:=Calc(L[X]) Xor Calc(R[X]);

End;

Exit(A[X]);

End;

Function Min(A,B:Longint):Longint;

Begin

If(A