Прогоняете в цикле массив, начиная с первого элемента, и проверяете их на четность, как только найдете первый четный, цикл можно завершить. Если четный элемент не будет обнаружен, то выводите соответствующее сообщение, иначе, начиная с последнего элемента, К элементов умножаете на A[K].

for i:=N downto N-K+1 do begin
A[i]:=A[i]*A[K];
end;