LECHAN PASCAL

var a:array[1..1000005] of longint;
    n,i,S:longint;
procedure nhap;
begin
    readln (n);
    for i:=1 to n do 
        read(a[i]);
end;
procedure giai;
begin
    for i:=1 to n do
        if (i mod 2=1) and (a[i] mod 2=0) then 
            write(i, ' ');
end;
begin
    assign (input,'lechan.inp');reset (input);
    assign (output,'lechan.out');rewrite (output);
    nhap;
    giai;
end.