安徽我最帅是笨蛋,没考虑

关键在与进位！
for i:=1 to l1 do  
   for j:=1 to l2 do 
 begin'
   x:=a[i]*b[j];
   y:=x div 10;
   z:=x mod 10;
   c[w]:=c[w]+2;
   c[w+1]:=c[w+1]+c[w]div 10 +y;
   c[w]:=c[w] mod 10;
end.
上面的就是详细的进位过程！