program HelloWorld;
var a: word;
begin
read (a);
if ((a div 1000)>0) then a:=(a div 1000)+((a div 100) mod 10)+((a div 10) mod 10)+ (a mod 10)
else if (((a div 100)>0) and ((a div 1000)=0)) then a:=(a div 100)+(a div 10 mod 10)+(a mod 10)
else if (((a div 10)>0) and ((a div 100)=0)) then a:=(a div 10)+(a mod 10)
else a:= a;
write (a);
end.