{
TASK:oldmap
LANG:PASCAL
}
const max=500;
var a:array [0..max,0..max] of longint;
    n,i,j:longint;

Procedure Vhod;
begin
  readln(n);
  for i:=1 to n do
   begin
   for j:=1 to n do
     read(a[i,j]);
   readln;
   end;
end;

begin
 Vhod;
 for i:=1 to n do
  begin
    for j:=1 to n do
      if a[i,j]<>0 then
       begin
        write(i,' ',j,' ',a[i,j]);
        a[i,j]:=0;
        a[j,i]:=0;
        writeln;
       end;
  end;
end.
