program z8_5;
uses crt;
const n=10;
m=8;
type t=array[1..n,1..m] of integer;
o=array[1..n] of integer;
var a:t;
sum:o;
k,j,l,i:integer;
procedure sumn(var ssum:o);
var i,j:integer;
BEGIN
for i:=1 to k do begin
sum[i]:=0;
end;
end;
BEGIN
for j:=1 to l do begin
if a[i,j]<0 then inc(sum[i], a[i,j]);
end;
readln;
END.