var
 s1,s:ansistring;
 a,b,c:array[1..1100] of longint;
 i,la,lb,jw,j,sum:longint;
begin
 readln(s);
 readln(s1);
 la:=length(s1);
 lb:=length(s);
 for i:=1 to la do a[la-i+1]:=ord(s1[i])-48;
 for i:=1 to lb do b[lb-i+1]:=ord(s[i])-48;
 for i:=1 to la do
 begin
  for j:=1 to lb do
  begin
   c[i+j-1]:=c[i+j-1]+a[i]*b[j]+jw;
   jw:=c[i+j-1] div 10;
   c[i+j-1]:=c[i+j-1] mod 10;
  end;
  if jw<>0 then c[i+lb]:=jw;
  jw:=0;
 end;
 la:=la+lb;
 while (c[la]=0)and(la>1) do 
 begin
  dec(la);
  inc(sum);
  if sum>10000000 then break
 end; 
 for i:=la downto 1 do write(c[i]);
end.

p1303，为什么tle? 我发现pascal在洛谷上经常会莫名其妙tle，不知是我代码问题还是什么？