И все же Опции

[The Boogie Woogie Blaster]

Код

procedure MulLongShort(a:Plong;const k:longint;c:Plong);
var i:integer;
begin
 fillchar(c^,sizeof(c^),0);
 if k=0 then inc(c^[0]) else
    begin
       for i:=1 to a^[0] do
          begin
             c^[i+1]:=(longint(a^[i])*k+c^[i]) div _osn;
             c^[i]:=(longint(a^[i])*k+c^[i]) mod _osn;
          end;
       if c^[a^[0]+1]>0 then c^[0]:=a^[0]+1 else c^[0]:=a^[0];
    end;
end;

при 0<=k<=_osn гарантированно работает правильно ,
при _osn+1<=k<=67479 вроде тоже правильные ответы выдает (проверьте кто нить при всех ли)
при k>=67480 во время исполнения проги возникает range check.

Бог ты мой неужели это Паскаль? Неужели эту задачу нельзя решить как-нибудь попроще?