program xxx;
var n, c, d, e, s : integer;
begin
write('введите число');
readln(n);
c:= n div 100;
d:=(n div 10) mod 10;
e:= n mod 10;
s:= c + d + e;
writeln('сумма чисел =', s);
readln
end.
program xxx;
var n, c, d, e, s : integer;
begin
write('введите число');
readln(n);
c:= n div 100;
d:=(n div 10) mod 10;
e:= n mod 10;
s:= c + d + e;
writeln('сумма чисел =', s);
readln
end.