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.
