program gg;
var a,b,c,x:integer;
begin
  writeln('Введите число');
  read(c);
  b:=0;
  a:=c;
    while a<>0 do begin
    x:=a mod 10;
    a:= a div 10;
    b:=b+x;
    end;
  writeln ('Сумма цифр в числе ' ,c, ' равна ' ,b);
end.