pascal wikioi 3123 高精度练习之超大整数乘法 是超大的,不是普通的高精度乘法,求代码,

var i,j,la,lb,len,t:longint; ch:char;a,b:array[1。。100000] of longint;c:array[1。。200000] of longint;beginassign(input,'in。txt'); reset(input);assign(output,'out。txt');rewrite(output);i:=0;repeatinc(i); read(ch); a[i]:=ord(ch)-48;until ch=' ';dec(i); la:=i; j:=1;while i>j do begin t:=a[i]; a[i]:=a[j]; a[j]:=t; inc(j); dec(i) end;i:=0;repeatinc(i); read(ch); b[i]:=ord(ch)-48;until chj do begin t:=b[i]; b[i]:=b[j]; b[j]:=t; inc(j); dec(i) end;fillchar(c,sizeof(c),0);for i:=1 to la dobeginfor j:=1 to lb dobeginc[i+j-1]:=c[i+j-1]+a[i]*b[j];inc(c[i+j],c[i+j-1] div 10);c[i+j-1]:=c[i+j-1] mod 10;end;end;len:=la+lb;while c[len]>0 dobeginc[len+1]:=c[len] div 10; c[len]:=c[len] mod 10; inc(len)end;dec(len);for i:=len downto 1 do write(c[i]);writeln;close(input); close(output);end 。