Ввести одномерный массив А, состоящий из целых чисел, вывести его.Найти номер К- номер первого чётного элемента массива .Преобразовать последние К элементов массива путём их умножения на значение первого четного. Если преобразование не возможно, то вывести соответствующее сообщение.

const Nmass=100;
Var A:array[1..Nmass] of integer;
i,N,k:byte;
begin
writeln('введите число элементов в массиве A');
readln(N);
writeln('вводим элементы массива A:');
for i:=1 to N do
begin
write('A[',i,']=');
readln(A [i]);
end;
writeln('Исходный массив A:');
for i:=1 to N do
write ( A[i]:5);
writeln;
for i:=1 to N do
а как обозначить последние k элементы( у меня это последние 3 элемента) в программе?