uses crt;
var s1,s2,st,k:string;
    t,a,b,nho,i,n:byte;
begin
    clrscr;
    readln(s1);
    readln(s2);
    while length(s1)<length(s2) do s1:='0'+s1;
    while length(s2)<length(s1) do s2:='0'+s2;
    s1:='0'+s1;
    s2:='0'+s2;
    n:=length(s1);
    nho:=0;
    for i:=n downto 1 do
       begin
           val(s1[i],a);
           val(s2[i],b);
           t:=a+b+nho;
           nho:=0;
           if t>9 then
              begin
                  nho:=1;
                  t:=t mod 10;
              end;
           str(t,k);
           st:=k+st;
       end;
    if st[1]='0' then delete(st,1,1);
    writeln(st);
readln;
end.

uses crt;
var s1,s2,c,d,max,min:string; nho,i,a,b,s:longint;
k:array[1..256]of byte;
begin 
clrscr;
   write('Nhap s1: ');readln(s1);
   write('Nhap s2: ');readln(s2);
   max:=s1; min:=s2;
   if s2>s1 then begin max:=s2; min:=s1; end;
   for i:=length(max) downto 1 do c:=c+max[i];
   for i:=length(min) downto 1 do d:=d+min[i];
   for i:=1 to length(c) do 
      begin
         val(c[i],a); val(d[i],b);
         s:=a+b+nho;
         k[i]:=s mod 10;
         if s>9 then begin k[i]:=k[i] mod 10; nho:=1; end else nho:=0; 
      end; 
   if nho=1 then write('1'); 
   for i:=length(c) downto 1 do write(k[i]);
readln
end.