{
TASK: oldmap
LANG: PASCAL
}

const ogr1 = 510;

var a : array[0..ogr1, 0..ogr1] of longint;
    d : array[0..ogr1] of longint;
    i, j, k, l, o, p, m, n : longint;

begin
 readln(n);
 for i := 1 to n do
   read(d[i]);
 readln;
 for i := 2 to n do
   writeln(1, ' ', i, ' ', d[i]);
 for i := 2 to n do
   begin
    for j := 1 to i do
      read(k);
    for j := i + 1 to n do
      begin
       read(k);
       if k < d[i] + d[j] then writeln(i, ' ', j, ' ', k);
      end;
    readln;
   end;
end.


