var a,dec,hun,one,k:integer;
 begin
  writeLn('Ââåäèòå ÷èñëî');
  writeln;
  readln(a);
  one:=a mod 10;
  a:=a div 10;
  dec:=a mod 10;
  a:=a div 10;
  hun:=a mod 10;
  a:=a div 10;
  K:=hun+dec+one;
  write(k);
 end.