var

 d, k: integer;

begin

 write('Запишите число: ');

 readln(d);

 while d > 0 do  

 begin

   k := k + (d mod 10);

   d := d div 10;

 end;

 writeln(k);

end.