Program Summa_cifr;
Var x, a, b, c, s: integer;
Begin
 write ('  : '); readln (x);
 a:=x div 100;         {  }
 b:=x mod 100 div 10;  {  }
 c:=x mod 10;          {  }
 s:=a+b+c;             { }
 writeln ('    ', s)
End.
