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.