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