Pascal :

var  a,b,c,d,e,w:integer;
begin
readln(a);
b:=a mod 10;
c:=a div 1000;
d:=a mod 100 div 10;
e:=a div 100 mod 10;
w:=b+c+d+e;
writeln(w);
end.