VIII/13

program VIII;
var
a : array [1..1000, 1..1000] of integer;

 i, j, n, k, min, INF: integer;

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

    INF := 32000;//число, которого 100% не будет в матрице, чтобы метить элементы, которые удалены
    for i := 1 to n do
        for j:= 1 to n do
            if (a[i,j] = min) then
                begin
                    a[i,j] := INF;//удаляем позицию, в которой нашли минимум
                    for k:= 1 to n do//фиксируем строку, проходим по столбцу
                        if a[i, k] <> min then//если находим еще один минимум, то оставляем, чтобы удалить еще одну строку/столбец
                            a[i, k]:= INF;
                    for k:= 1 to n do//фиксируем столбец, проходим по строкам
                        if a[k, j] <> min then
                            a[k, j]:= INF;

                end;

    for i:= 1 to n do
    begin
        for j:= 1 to n do
            if (a[i, j] <> INF ) then
                Write(a[i,j], ' ');
        WriteLN();
    end;


end.