program firsta;

var
i,b,n:integer;

begin

i:=0;
readln(n);
repeat
 b:=n mod 10;
 i:=i+b;
 n:=n div 10;
until (n=0);
writeln(i);
readln;

end.

program firstb;

var 
b:integer;
s:string;

begin

readln(b);
Str(b,s);
writeln(length(s));
readln;

end.

program second;

var
e,n:integer;
s:string;

begin

readln(n);
Str(n,s);
s:=s[1]+s[2];
Val(s,n,e);
if (n mod 2 = 0) then writeln('Y')
else writeln('N');
readln;

end.