Ответ:

const n=10;

var a:array [1..n] of integer;

   i,s:integer;

begin

   s:=0;

   for i:=1 to n do begin

       write('Введите значение ',i,'-го элемента массива: '); readln(a[i]);

       if a[i] mod 2 = 0 then s:=i;

   end;

   if s = 0 then write('В массиве нет чётных чисел')

   else write('Последний чётный элемент массива: ', a[s]);

end.