Program hotrotinhoc;
var x,i,n,k: integer;
a: array[0..32000] of integer;
begin
write('N='); readln(n);
write('K='); readln(k);
for i:=1 to n do
begin
write('a[',i,']='); readln(x);
inc(a[x]);
end;
write('Cac phan tu xuat hien tu k lan tro len la : ');
for i:=0 to 32000 do
if a[i]>=k then write(i,' ');
readln
end.