var f: text;
    c,j,n,d: integer;
    a:array[1..100] of integer;
begin
 d:=0;
 assign (f,'f1.inp');
 reset(f);
 readln(f,n,j);
 close(f);

 assign (f,'f1.out');
 rewrite(f);
 for c:= 1 to n do
   read(f,a[c]);
 for c:= 1 to n do
  if a[c] = j then
    d:=d+1;
  if d >= 1 then
   begin
    writeln(f,'1');
    for c:=1 to n do
    begin
     if a[c]=j then break;
     write(f,c);
    end;
   end
  else
   begin
    write(f,'0')
   end;
   close(f);
end.

******CHÚC BẠN HỌC TỐT******

@TonyGamingVN

program bai_giai;
var f,g:text;
var A:array[1..100] of integer;
    n,i,k,d,vt:integer;
begin
    Assign(f,'Find1.INP');  reset(f);
    Assign(g,'Find1.OUT');  rewrite(g);
    readln(f,n,k);
    for i:=1 to n do read(f,A[i]);
    d:=0;
    for i:=1 to n do
        if A[i]=k then
            begin
                d:=1;  vt:=i;
                break;
            end;
    if d=0 then write(g,0)
    else
        begin
            writeln(g,1);
            writeln(g,vt);
        end;
    close(f); close(g);
end.