Code

uses crt;
var a: array[1..100000] of integer;
var n,x,i: integer;
procedure solve(n,x: integer;a: array of integer);
var i: integer;
var print: boolean;
begin
print := false;
for i := 0 to n - 1 do
    if a[i] = x then
    begin
        if not (print) then
        begin
            writeln('yes!');
            print := true;
        end;
        write(i+1,' ');
    end;
if not (print) then writeln('no!');
end;
begin
write('n = ');
readln(n);
write('x = ');
readln(x);
for i := 1 to n do read(a[i]);
solve(n,x,a);
end.

uses crt;
var A, B : array [1 .. 100] of integer;
    i, n, j, x : integer;
    
procedure XT (k : integer);
    begin
        write('Vi tri : ');
        for i := 1 to k do write(B[i],' ');
    end;
    
begin
    clrscr;
    write('n = '); readln(n);
    write('x = '); readln(x);
    j := 0;
    for i := 1 to n do 
        begin
            read(A[i]);
            if A[i] = x then
                begin
                    j := j + 1;
                    B[j] := i;
                end;
        end;
        
    if j <> 0 then
        begin
            writeln('Yes!');
            XT (j);
        end
    else write('No!');
    readln
end.