program ideone;
var x,k,s,c : Integer;
begin
  Write('x='); Readln(x);
  Write('k='); Readln(k);
  
  while x <> 0 do
  begin
    c := x mod 10;
    if c < k then s := s + c;
    x := x div 10;
  end;
  
  WriteLn('s=', s);
end.