A[i] mod 2 определяет остаток от деления на 2. Если этот остаток не равен 0 (A[i] mod 2 <> 0), то элемент массива нечетный. В команде k := k + A[i] вычисляется сумма элементов. Следовательно, в приведенном фрагменте программы вычисляется сумма нечетных элементов в массиве A (последний ответ).