begin
var a := ReadInteger;
var s := 0;
println(a.ToString.Length);
while a <> 0 do
s += a mod 10;
a := a div 10;
end;
println(s);
end.
begin
var a := ReadInteger;
var s := 0;
println(a.ToString.Length);
while a <> 0 do
begin
s += a mod 10;
a := a div 10;
end;
println(s);
end.