HAMTOANLE PASCAL

var a:array[1..1000000] of longint;
    k,i,x,n:longint;
function toanle(x:longint):boolean;
begin
    while x>0 do
    begin
        k:=x mod 10;
        if k mod 2 = 0 then exit(false);
        x:=x div 10;
    end;
    exit(true);
end;
procedure nhap;
var i:longint;
begin
    read(n);
    for i:=1 to n do read(a[i]);
end;
procedure giai;
begin
    for i:=1 to n-2 do
        if (toanle(a[i])=true) and (toanle(a[i+1])=true) and (toanle(a[i+2])=true) then
            writeln(i,' ',i+1,' ',i+2);
end;
begin
    assign(input,'hamtoanle.inp');reset(input);
    assign(output,'hamtoanle.out');rewrite(output);
    nhap;
    giai;
end.