Длиные числа

{       Умножение целых произвольной длины
}
const maxlen=100;
 
procedure AddTo (var nr:integer; var r:string; ns:integer; var s:string;
                 sdvig:integer);
          {К строке r текущей длиной nr добавляет строку s длиной ns
           со сдвигом sdvig}
var i,cur,ost,re,c:integer;
begin
     cur:=nr-sdvig;     {Позиция в строке r, с которой начинаем писать}
     ost:=0;
     for i:=ns downto 1 do begin  {Перебираем символы строки s с конца}
         c:=Ord(s[i])-48;       {Текущий символ}
         re:=(Ord(r[cur])-48)+c; {Складываем с текущим символом из r}
         if ost<>0 then re:=re+ost; {Если есть число в уме - добавляем}
         if re>9 then begin {Сумма двух чисел больше 9 -}
            ost:=re div 10;  {Делим ее на число в уме}
            re:=re mod 10;        {и число, которое пишем}
         end
         else ost:=0;       {Иначе остатка нет}
         r[cur]:=Chr(re+48);
         cur:=cur-1;
     end;
     if ost<>0 then {Оставалось число в остатке - добавить его к строке}
       r[cur]:=Chr(ost+48);
end;
 
procedure Mul1 (n1:integer;var s1:string; s2:char;
                var n2:integer;var res:string);
   {Умножает строку s1 длиной n1 на число s2 и пишет
    результат в строку res длиной n2}
var i,r,ost,c:integer;
begin
     ost:=0;
     for i:=n1 downto 1 do begin
         c:=Ord(s1[i])-48;
         r:=c* (Ord (s2)-48);
         if ost<>0 then r:=r+ost; {Было в уме - прибавляем}
         if r>9 then begin
            ost:=r div 10;      {В уме}
            r:=r mod 10;        {Пишем}
         end
         else ost:=0; {Результат умножения меньше 10 - нет остатка}
         r:=r+48;
         res[n2]:=Chr(r); n2:=n2+1;
     end;
     if ost<>0 then begin
      ost:=ost+48;
      res[n2]:=Chr(ost);
     end
     else n2:=n2-1;
end;
 
procedure Reverse (n:integer; var s:string);
var i,n2:integer;      {Обращает строку}
    c1:char;
begin
     n2:=n div 2;
     for i:=1 to n2 do begin
         c1:=s[i];
         s[i]:=s[n-i+1];
         s[n-i+1]:=c1;
     end;
end;
 
 
function strlen_ (var s:string):integer;
var len:integer; {считает длину строки}
begin
     len:=0;
     while s[len]<>#0 do len:=len+1;
     if len>0 then len:=len-1;
     strlen_:=len;
end;
 
procedure Mul (var s1,s2,s:string);     {Умножает 2 числа}
var i,i1,i2,n1,n2,nr,ns,sdvig:integer;
var res:string;
begin
     n1:=strlen_ (s1);
     n2:=strlen_ (s2);
     ns:=maxlen;
     sdvig:=0;
     for i:=1 to maxlen do s[i]:='0';
     for i2:=n2 downto 1 do begin
         nr:=1;
         Mul1 (n1,s1,s2[i2],nr,res);
         Reverse (nr,res);
         AddTo (ns,s,nr,res,sdvig);
         sdvig:=sdvig+1;
     end;
end;
 
var s1,s2,s:string;
    i:integer;
 
begin
     writeln ('Строка 1:'); readln (s1);
     writeln ('Строка 2:'); readln (s2);
     Mul (s1,s2,s);
     writeln ('Результат:');
     i:=1; {Нули в начале не печатаем}
     while s[i]='0' do i:=i+1;
     repeat
      write (s[i]);
      i:=i+1;
     until i>maxlen;
end.