program z5;
var
a1: array [1 .. 100, 1 .. 100] of integer;
i, j, b, n: integer;
procedure plus;
var
minus: boolean;
summa: integer;
begin
summa := 0;
for i := 1 to b do
begin
minus := false;
for j := 1 to b do
if a1[j, i] < 0 then
minus := true;
if minus = true then
begin
for n := 1 to b do
summa := summa + a1[i, n];
writeln('summa vseh elemov= ', summa, '=', i, '-go stolbca');
end;
end;
end;
begin
writeln('inut b');
read(b);
for i := 1 to b do
begin
for j := 1 to b do
begin
a1[i, j] := 19 - random(22);
write(' ', a1[i, j]:3);
end;
writeln();
end;
plus;
end.