var a:array[1..20000]of integer;

i,n,p:integer;

s:qword;

t:ansistring;

begin

s:=0;

readln(t);

n:=length(t);

for i:=1 to n do

a[i]:=ord(t[i])-ord('0');

p:=n;

while a[p]=0 do dec(p);

for i:=p downto 1 do

begin

write(a[i]);

s:=s+a[i];

end;

writeln;

write(s);

end.