uses crt;
var
        so1,so2,tong:string;
        i,tam,nho,ht1,ht2:integer;
begin
        clrscr;
        nho:=0;
        write('nhap so thu nhat:');readln(so1);
        write('nhap so thu hai:');readln(so2);
        while length(so1) > length(so2) do
                so2:='0'+so2;
        while length(so2) > length(so1) do
                so1:='0'+so1;
        for i:=length(so1) downto 1 do
                begin
                        val(so1[i],ht1);val(so2,ht2);
                        tam:=(ht1+ht2+nho) mod 10;
                        nho:=(ht1+ht2) div 10;
                        str(tam,tong[i]);
                end;
        writeln(so1,' + ',so2,' = ',tong);
        readln;
end.