code 31202;
procedure LNG INT MULT(U,V,PRODUCT);
integer array U,V,PRODUCT;
begin integer LU,LV,LUV,I,J,CARRY,T;
   LU:=U[0]; LV:=V[0]; LUV:=LU + LV;
   for I:=LU + 1 step 1 until LUV do PRODUCT[I]:=0;
   for J:=LU step -1 until 1 do 
   begin CARRY:=0;
      for I:=LV step -1 until 1 do 
      begin T:=U[J] * V[I] + PRODUCT[J+I] + CARRY;
         CARRY:=T//10 000 000; PRODUCT[J+I]:=T - CARRY * 10 000 000
      end; PRODUCT[J]:=CARRY
   end;
   if PRODUCT[1]=0 then 
   begin for I:=2 step 1 until LUV do 
      PRODUCT[I-1]:=PRODUCT[I]; LUV:=LUV - 1
   end; PRODUCT[0]:=LUV
end LNG INT MULT

        eop