===== PascalABC.NET =====
begin
var n := Abs(ReadInteger);
var s := 0;
while n > 0 do
s += n mod 10;
n := n div 10
end;
Write(s)
end.
