uses crt;
var s:String;
tam:char;
i,k,j,d:byte;
begin
clrscr;
readln(s,k);
for i:=1 to length(s)-1 do
for j:=i+1 to length(s) do
 if s[i]>s[j] then
 begin
  tam:=s[i];
  s[i]:=s[j];
  s[j]:=tam;
 end;
i:=1;
while i<=length(s) do
begin
 d:=1;
 while s[i]=s[i+1] do
 begin
  i:=i+1;
  d:=d+1;
 end;
 if d<=k then write(s[i],' ');
 i:=i+1;
end;
readln
end.

uses crt;
var s:string; a:array[1..100000] of integer; i,j,k:integer; tam:char;
begin
    clrscr;
    readln(s);
    readln(k);
    for i:=1 to length(s) do
    begin
        for j:=i+1 to length(s) do
        begin
            if (s[i]>s[j]) then
            begin
                tam:=s[i];
                s[i]:=s[j];
                s[j]:=tam;
            end;
        end;
    end;
    a[1]:=1;
    for i:=2 to length(s) do
    begin
        if s[i]=s[i-1] then a[i]:=a[i-1]+1
        else a[i]:=1;
    end;
    a[length(s)+1]:=1;
    for i:=1 to length(s) do
    begin
        if (a[i]<=k) and (a[i+1]=1) then write(s[i],' ');
    end;
    readln;
end.

$\\$

`@Daoanhviet96`