Ответ:

var

   i,j,n,max:integer;

begin

   write('Введите n: '); readln(n);

   for i:=1 to n do begin

       write('Введите ', i,'-е число: '); readln(j);

       if i = 2 then max := j

       else if i mod 2 = 0 then begin

           if max < j then max := j

       end;

   end;

   write('Максимальный чётный по счёту элемент равен ', max);

end.