program sap_xep;

uses crt;

var A:array[0..1000] of integer;

     n,i,j,tg,d,k:longint;

begin

       clrscr;

       write('Nhap n: ');  readln(n);

       write('Nhap k: ');  readln(k);

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(A[i]);

              end;

       for i:=1 to n do

              for j:=i+1 to n do

                     if A[i]>A[j] then

                            begin

                                   tg:=A[i];

                                   A[i]:=A[j];

                                   A[j]:=tg;

                           end;

       write('Day tang dan la: ');

       for i:=1 to n do write(A[i],' ');

       writeln;

       i:=1;

       while i<=n do

              begin

                     if A[i]<>A[i+1] then

                            begin

                                   j:=i; d:=1;

                                   while A[j-1]=A[i] do

                                          begin

                                                 j:=j-1;

                                                 d:=d+1;

                                          end;

                                   if d>=k then write(A[i],' ');

                            end;

                     i:=i+1;

              end;

       readln;

end.

uses crt;
var i,j,n,t,k,p,d,kt:longint; a:array[1..1000000]of longint;
begin
   clrscr;
   write('N=');readln(n);
   write('K=');readln(k);
   write('Nhap cac so: ');
   for i:=1 to n Do read(a[i]);
   for i:=1 to n Do
      for j:=i to n Do
         if a[i]>a[j] then
            begin
               t:=a[i];
               a[i]:=a[j];
               a[j]:=t;
            end;
    write('+ Day tang dan la: ');
   for i:=1 to n Do write(a[i],' ');   
   writeln;
   write('+ Cac so xuat hien ',k,' lan tro len la: ');
   for i:=1 to n Do
      if a[i]<>p then
         begin
            if d>=k then begin kt:=1; write(a[i-1],' '); end;
            p:=a[i];
            d:=1;   
         end else inc(d);
   if kt=0 then write('KHONG');  
readln 
end.