fpc:
var n:string;
a,b,i:longint;
begin
read(n);
b:=0;
a:=length(n);
for i:=1 to a do
b:=ord(n[i])-ord('0')+b;
writeln(b);
end.