program p8110;
const maxn=10;
type myarray=array[1..maxn,1..maxn] of integer;
var a:myarray;
i,j,n:integer;
begin
writeln('vvedite n ');
read(n);
writeln('vvdite matr');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
For i := 1 To n-1 Do
For j := i+1 To n Do
If A[i, j] = A[j, i] Then
Begin
A[i, j] := 0;
A[j, i] := 0;
End;
for i:=1 to n do
begin
for j:=1 to n do
write(' ',a[i,j]);
writeln
end;
end.