Умножение длинных целых в паскале

[Olven]

я не знаю. но пишу на обычно TP7

[skyll]

Прошу не заострять внимание на этом коде, но все работает)

program gf;
uses crt;
var
   a, b: integer;
   cin, cout: string;
procedure _10to2;
var
    i, x, dl: integer;
    cod, cod1: string;
begin
     x := StrToInt(cin);
     cod := ''; cod1 := '';
     if (x = 1) or (x = 0) then
        cout := IntToStr(x);
     if x > 1 then begin
        repeat
              if x mod 2 = 1 then
                 cod := cod + '1'
              else
                  cod := cod + '0';
              x := x div 2;
        until (x = 1) or (x = 0);
        cod := cod + '1';
        dl := length(cod);
        for i := dl downto 1 do
            cod1 := cod1 + cod[i];
        cout := cod1;
     end;
end;


procedure _2to10;
var
   i, dl, j, k: integer;
   ch, ch1: string;
   step, sum: real;
begin
     ch1 := '';
     dl := length(cin);
     for i := 1 to dl do
         begin
              ch := cin[i];
              ch1 := ch + ch1;
         end;
     sum := 0;
     for i := 1 to dl do begin
         ch := ch1[i];
         if ch = '1' then
            step := exp((i - 1) * ln(2));
         if ch = '0'
             then step := 0;
         sum := sum + step;
     end;
     cout := FloatToStr(sum);
end;

begin
     readln(cin);
     _2to10;
     a := StrToInt(cout);
     readln(cin);
     _2to10;
     b := StrToInt(cout);
     a := a * b;
     cin := IntToStr(a);
     _10to2;
     write('text: ',cout);
end.

[Olven]

удалите тему