program suma_cifrelor_unui_numar;
var n,suma: integer;
// Introduceti un numar natural mai mic decat 32768
begin
   readln(n);
   suma:=0;
   while n <> 0 do
   begin
      suma:= suma + n mod 10;
      n:= n div 10;
   end;
   writeln ('Suma cifrelor lui n este ',suma);
end.