var
  B:array[1..8, 1..8] of integer;
  A:array[1..64] of integer;
  sums:array[1..8] of integer;
  i, k, j:integer;
begin
  for i := 1 to 8 do
  begin
    for j := 1 to 8 do
    begin
      B[i, j] := random(121)-60;
      write(B[i, j]:4);
    end;
    writeln;
  end;
  k := 1;
  for i := 1 to 8 do
  begin
    for j := 1 to 8 do
    begin
      if B[i, j] > -5 then
      begin
        A[k] := B[i, j];
        write(A[k]:4);
        k := k + 1;
      end;
    end;
  end;
  writeln;
  for i := 1 to 8 do
  begin
    for j := 1 to 8 do
    begin
      sums[i] := sums[i] + B[i, j];
    end;
    writeln('Сумма ', i, ' строки: ', sums[i]);
  end;
  readln
end.