var n,l,s,k:int64;
begin
read(n);
repeat
k:=n mod 10;
s:=s+k;
l:=l+1;
n:=n div 10;
until n=0;
write(l,' ',s);
end.
Объяснение:
