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
