var

 a, b, x, s, p: integer;

begin

 writeln(' Ввести х');

 readln(x);

 s := 0;

 x := Abs(x); { защита от ввода отрицательных }

 while x > 0 do

 begin

   s := s + x mod 10;

   x := x div 10

 end;

 writeln(' Сумма цифр=', s);

end.