`* Pascal:`

`" "`

program le_plus_grand_nombre;
uses crt;
var grand, indi, N, K: longint;
    A: array [1 .. 100000] of longint;

begin
    clrscr;
    readln(N, K);
    
    grand := high(longint);
    
    for indi := 1 to N do 
    begin
        read(A[indi]);
        
        if (A[indi] < grand) and (A[indi] > K) then
            grand := A[indi];
    end;
    
    writeln(grand);
    
    for indi := 1 to N do 
        if grand = A[indi] then
            write(indi, ' ');
    
    readln
end.