VAR
x: integer;
BEGIN
Readln(x);
Writeln('Cумма цифр числа ', x, ' равна ',
(x div 100) + ((x - (x div 100) * 100) div 10) + (x mod 10));
END.
VAR
x: integer;
BEGIN
Readln(x);
Writeln('Cумма цифр числа ', x, ' равна ',
(x div 100) + ((x - (x div 100) * 100) div 10) + (x mod 10));
END.