cls
input a$
la=len(a$)
dim a$(la),b(la),c$(la)
for i=1 to la
a$(i)=mid$(a$,i,1)
if a$(i)<"0" or a$(i)>"9" then b(i)=1
next i
for i=1 to la
if b(i)=1 and (b(i-1)=0 or b(i+1)=0) then c=c+1
if b(i)=0 then c$(c)=c$(c)+a$(i)
next i
while c$(c)="":c=c-1:wend
for i=1 to c-1
print c$(i);"+";
d=d+val(c$(i))
next i
print c$(c);"=";d+val(c$(c))