uses crt;
var i,n:integer;
     A: Array[1..50] of integer;
begin
        clrscr;
        readln(n);readln(k);
        for i:=1 to n do
        begin
                write('A[',i,'] = ');
                readln(A[i]);
        end;
        for i:=1 to A[i] do
        if (A[i] > k) then write(A[i]);
        readln
end.