VI/12

program VI;
var
a : array [1..1000, 1..1000] of integer;
b: array[1..1000] of integer;
last, j, i, n : integer;

begin
    ReadLN(n);
    for i:= 1 to n do begin
        for j:= 1 to n do
            Read(a[i,j]);//считываем массив
        ReadLN();// для переноса строки
        end;

    for j:= 1 to n do
        begin
            last := -1;//обнуляем последнюю позицию четного числа
            for i:= 1 to n do
                if (a[i, j] MOD 2 = 0) then// если текущее число четное
                    last := i;//запишем его позицию
            b[j]:= last;//
        end;
    for i:= 1 to n do
        write(b[i], ' ');
end.