III/13

program III;
var
a:array [1..1000] of integer;
//в условии написано решить еще и с помощью двумерного массива,
//но я понятия не имею, как можно "логично" вписать двумерный массив в это услвоие
//если его не создать размером 1000 x 1 и использовать только одну строку матрицы,
//но фактически это тоже одномерный массив.
i, n, k:integer;
begin
ReadLN(n, k);//в одной строчки считываем количество чисел и число с которым будем сравнивать
for i:= 1 to n do
    read(a[i]);//считываем значения в массив
for i:= 1 to n do
    if (a[i] > k) then//если текущий элемент больше, то
        write(i, ' ');//вывести его

end.