Const
    SIZE = 200+1;

Type
    hugeint = Record
        len : Integer;
        num : Array[1..SIZE] Of Integer;
    End;
var a,b:hugeint;
    s1,s2:string;
    i:integer;
procedure add(a, b : hugeint);
    Var
        i : Integer;
        ans : hugeint;
    Begin
        FillChar(ans.num, SizeOf(ans.num), 0);
        If a.len > b.len
            Then ans.len := a.len
            Else ans.len := b.len;
        For i := 1 To ans.len Do
            Begin
                ans.num[i] :=ans.num[i]+a.num[i]+b.num[i];
                ans.num[i + 1] := ans.num[i + 1] + ans.num[i] DIV 10;
                ans.num[i] := ans.num[i] MOD 10;
            End;
        If ans.num[ans.len + 1] > 0
            Then Inc(ans.len);
        for i:=ans.len downto 1 do write(ans.num[i]);
        writeln;
    End;


   procedure datain;
   begin
    assign(input,'highplus.in');  assign(output,'highplus.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;
    add(a,b);
   close(input);close(output);
   end.

<br />