for i:=0 to 10 do A[10-i]:= i ;
k:= A[9]
Из этих двух строк видим, что k = 1.
Значит уже можно сделать вывод, что ответ -- 2, т.к. только там A[1] = 1, а именно значение k мы присваиваем A[1].
В принципе этого достаточно, дальше задачу рассматривать нет смысла особо.
Если очень хочется можно вручную проделать цикл и убедиться, что A[0] действительно принимает значение 10, A[2] -- 9 и так далее.
Впрочем, повторюсь, это уже лишнее.