Pascal :

var a,b:array [1..10] of longint;
    n,m,c,d,e,s,x,y,z,i,j,k:longint;
BEGIN
    read(n);
    for i:=1 to n do read(a[i]);
    for i:=1 to n-1 do
    begin
        for j:=i+1 to n do
        begin
            if a[i]<a[j] then begin x:=a[i]; a[i]:=a[j]; a[j]:=x; end;
        end;
    end;
    for i:=1 to n do if a[i] mod 2=0 then begin write(a[i]); break; end;
END.