子程序中判断语句出错
```cpp
var
i,j,x,y,n,s1,s2,sum1,sum2,hh:longint;
a:array[1..200]of longint;
b:array[1..200]of longint;
procedure bj(m,n:longint);
begin
if m<>n then
case m of
0:if (n=2) or (n=3) then inc(sum1) else inc(sum2);
1:if (n=0) or (n=3) then inc(sum1) else inc(sum2);
2:if (n=1) or (n=4) then inc(sum1) else inc(sum2);
3:if (n=2) or (n=4) then inc(sum1) else inc(sum2);
4:if (n=0) or (n=1) then inc(sum1) else inc(sum2);
end;
end;
begin
read(n,s1,s2);
for i:=1 to s1 do
read(a[i]);
for i:=1 to s2 do
read(b[i]);
hh:=0; x:=0; y:=0;
repeat
inc(hh);
inc(x);
inc(y);
if x>s1 then x:=1;
if y>s2 then y:=1;
bj(a[x],b[y]);
until hh=n;
writeln(sum1,' ',sum2);
end.
```
by 呜呜呜呜呜 @ 2016-11-12 08:02:09