var a,b,c:longint;
begin
read(a);
while a>=10 do
begin
b:=a mod 10;
c:=c+b;
a:=a div 10;
end;
write(c+a);
end.
/**************************************************************
	Problem: 1960
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/