program Project1;
 
{$APPTYPE CONSOLE}
Var mas: array[1..7, 1..3] of integer;
      i, g: byte;
 
begin
 
Randomize;
   for i := 1 to 3 do
      for g := 1 to 7 do mas[i,g] := random(100);
 
   for g := 1 to 7 do begin
      for i := 1 to 3 do Write (mas[i,g],' '); Writeln; End;
 
Writeln;
for g := 1 to 7 do
  if mas[3,g] > mas[1,g] + mas[2,g] then Write (g, ' ');
 
Readln;
end.