program xep_giai;

uses crt;

var a :array[1..100] of real;

    i,n,dem,dem1 : integer;

    t,max,k,max1,max2 : real;

begin

read(n); readln(k);

for i:=1 to n do read(a[i]);

for i:=1 to n do if (a[i] > k) and ( a[i] > max) then max := a[i];

if max > k then writeln(max)

else writeln('0');

max1 := 0; max2:=0; max :=0; dem:=0;

for i:=1 to n do if a[i] > max then

 begin

  max := a[i];

  inc(dem);

 end;

if dem = 3 then

  begin

   writeln('3',' ',max);

   writeln('0');

   write('0');

  end;

if dem = 2  then

 begin

   dem1 :=0;

   for i := 1 to n do if ( a[i] < max ) and ( a[i] > max1 )

   then max1 := a[i];

   for i:=1 to n do if a[i] = max1 then inc(dem1);

   writeln('2',' ',max);

   writeln('0');

   writeln(dem1,' ',max1);

 end;

if dem = 1 then

 begin

   writeln('1',' ',max);

   dem :=0;

   for i :=1 to n do if (a[i] < max ) and ( a[i] > max1 ) then max1:=a[i];

   for i:=1 to n do if a[i] = max1 then inc(dem);

   if dem = 2 then

     begin

      writeln('2',' ',max1);

      write('0');

     end;

   if dem = 1 then

     begin

      dem1:=0;

      writeln('1',' ',max1);

      for i:=1 to n do if (a[i] < max1 ) and ( a[i] > max2 )

      then max2 := a[i];

      for i:=1 to n do if a[i] = max2 then inc(dem1);

      write(dem1,' ',max2);

     end;