这测试数据有没有问题！！？？

What's wrong?

我既压了位又补了零， 为什么只过了2组：

编译通过...

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

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

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

　├ Hint: WA　├ 标准行输出

　├ 错误行输出

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

　├ Hint: WA　├ 标准行输出

　├ 错误行输出

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

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

程序：

program dyh(input,output);

var

st1,st2:string;

a,b:packed array[1..2500]of integer;

i,j,l1,l2:integer;

c:packed array[1..10000]of longint;

begin

readln(st1);

readln(st2);

l1:=length(st1);

l2:=length(st2);

for i:=1 to (l1-1) div 4 do

val(copy(st1,l1-i*4+1,4),a[i]);

val(copy(st1,1,(l1-1)mod 4+1),a[(l1-1) div 4+1]);

l1:=(l1-1) div 4+1;

for i:=1 to (l2-1) div 4 do

val(copy(st2,l2-i*4+1,4),b[i]);

val(copy(st2,1,(l2-1)mod 4+1),b[(l2-1) div 4+1]);

l2:=(l2-1) div 4+1;

for i:=1 to l1 do

for j:=1 to l2 do

begin

c:=c+a[i]*b[j];

c:=c+cdiv 10000;

c:=cmod 10000;

end;

if c[l1+l2]=0 then l2:=l2-1;

write(c[l1+l2]);

for i:=l1+l2-1 downto 1 do

if (c[i]