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

program bai_giai;
uses crt;
var a,b:ansistring;
function tong(x,y:ansistring):ansistring;
var so,so1,so2,nho:byte;
    max,i:integer;
    c:string;
begin
    if length(x)>length(y) then max:=length(x) else max:=length(y);
    for i:=1 to max-length(x) do x:='0'+x;
    for i:=1 to max-length(y) do y:='0'+y;
    nho:=0;   tong:='';
    for i:=max downto 1 do
        begin
            val(x[i],so1); val(y[i],so2);
            so:=so1+so2+nho;
            if so>=10 then
                begin
                    nho:=1; so:=so mod 10;
                end
            else nho:=0;
            str(so,c);
            tong:=c+tong;
        end;
    if nho=1 then tong:='1'+tong;
end;
BEGIN
    clrscr;
    write('Nhap a: ');  readln(a);
    write('Nhap b: ');  readln(b);
    write(tong(a,b));
    readln;
END.