Verified answer

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.