生活大爆炸求助p1328为什么只有30分

program Project2;
var n,na,nb,i,j,t,ma,mb:integer;
    a,b:array[1..200] of integer;
begin
read(n,na,nb);
for i:=1 to na do read(a[i]);
for i:=1 to nb do read(b[i]);
for i:=na+1 to n do
begin a[i]:=a[i mod na];if i mod na=0 then a[i]:=a[na];end;
for i:=nb+1 to n do
begin b[i]:=b[i mod nb];if i mod nb=0 then b[i]:=b[na];end;
for i:=1 to n do
  begin
     if a[i]=0 then
     begin
     case b[i] of
     1:begin mb:=mb+1;end;
     2:begin ma:=ma+1;end;
     3:begin ma:=ma+1;end;
     4:begin mb:=mb+1;end;
     end;
   end;
     if a[i]=1 then
     begin
      case b[i] of
      0:begin ma:=ma+1; end;
      2:begin mb:=mb+1; end;
      3:begin ma:=ma+1; end;
      4:begin mb:=mb+1; end;
      end;
      end;
   if a[i]=2 then
   begin
   case b[i] of
   0:begin mb:=mb+1;  end;
   1:begin ma:=ma+1; end;
   3:begin mb:=mb+1; end;
   4:begin ma:=ma+1; end;
   end;
   end;
   if a[i]=3 then
   begin
   case b[i] of
   0:begin mb:=mb+1;end;
   1:begin mb:=mb+1;end;
   2:begin ma:=ma+1;end;
   4:begin ma:=ma+1;end;
   end;
   end;
   if a[i]=4 then
   begin
   case b[i] of
   0:begin mb:=mb+1;end;
   1:begin mb:=mb+1;end;
   2:begin ma:=ma+1;end;
   3:begin ma:=ma+1;end;
   end;
   end;
end;
write(ma,' ',mb);
readln;
readln;
end.