Const
    SIZE = 400;
Type
    hugeint = Record
        len : Integer;
        num : Array[1..SIZE] Of integer;
    End;
var a,b:hugeint;
    s1,s2:string;
    i:integer;
procedure times(a, b : hugeint);
    Var
        i, j : Integer;
        ans : hugeint;
    Begin
        FillChar(ans, SizeOf(ans), 0);
        For i := 1 To a.len Do
            For j := 1 To b.len Do
              ans.num[i + j - 1] := ans.num[i + j - 1] + a.num[i] * b.num[j];
        For i := 1 To a.len + b.len Do
            Begin
                ans.num[i + 1] := ans.num[i + 1] + ans.num[i] DIV 10;
                    ans.num[i] := ans.num[i] mod 10;
                If ans.num[a.len + b.len] > 0
                    Then ans.len := a.len + b.len
                    Else ans.len := a.len + b.len - 1;
            End;
      for i:=ans.len downto 1 do write(ans.num[i]);
      writeln;
    End;
 procedure datain;
   begin
    assign(input,'highmul.in');  assign(output,'highmul.out');
    reset(input); rewrite(output);
    readln(s1);
    readln(s2);
    a.len:=length(s1);
    b.len:=length(s2);
    for i:=1 to a.len do  a.num[i]:=ord(s1[a.len-i+1])-ord('0');
    for i:=1 to b.len do  b.num[i]:=ord(s2[b.len-i+1])-ord('0');

 end;
 begin
   datain;
   times(a,b);
   close(input);
   close(output);
 end.

<br />