VAR
 A:ARRAY[1..6,1..7] of INTEGER;
 i,j:INTEGER;
 L:ARRAY[1..6] of INTEGER;
BEGIN
 Randomize;
 For i:=1 to 6 do
  begin
   For j:=1 to 7 do
    begin
     A[i,j]:=Random(100)-20;
     Write(A[i,j]:5);
    end;
   Writeln;
  end;

 WriteLn;

 For i:=1 to 6 do L[i]:=0;

 For i:=1 to 6 do
  begin
   For j:=1 to 7 do
    If A[i,j]<0 then
     begin
      Write(A[i,j]:5);
      L[i]:=L[i]+A[i,j];
     end;
   If L[i]=0 then
    Write('Line ',i,' contains no negative elements');
   Writeln;
  end;

 WriteLn;

 For i:=1 to 6 do
  Write(L[i]:5);

 WriteLn;

 ReadLn;
END.