var a,x:integer;
 i,s:integer;
 
begin
 writeln('vvedite tseloe chislo');
 readln( a ); x:=a;
 s:=0;
 while ( x<>0 ) do
 begin
   s := s + (x mod 10);
   x := x div 10;
 end;
writeln( 'Summa tsifr chisla ',a,' = ', s );
readln;
end.