var n,m,i,k,o:integer;
s:string;
begin
readln(n); // программа спрашивает, какое число будем анализировать и присваивает его переменной n
str(n,s); // получаем строку из числа
for i:=1 to length(s) do
begin
val(s[i],k,o); // посимвольно переводим строку в символ
m:= k+ m; // и суммируем все в переменную m
end;
writeln(m); // выводим сумму цифр
end.