program Hello;
uses crt;
var s,s1,ts:string;
tong,a,i:integer;
begin
write('S = '); readln(s);
for i:= 1 to length(s) do
if s[i] in ['0'..'9'] then
begin
val(s[i],a);
ts:= ts + s[i] + ' + ';
tong:= tong + a;
end
else
s1:= s1 + s[i];
delete(ts, length(ts)-2, 2);
writeln('S1 = ', s1);
writeln('Tong = ',ts, '= ', tong);
readln;
end.