program spec_for_znanijacom;
var x, a, b, c, s:integer;
begin
writeln('Введите число');
readln(x);
a:=x div 100;
b:=x div 10 mod 10;
c:=x mod 100 mod 10;
s:=a+b+c;
write('Сумма цифр 3-хзначного числа равна ');
write(s);
end.