Const n=5;
Var i,j,k:byte;a:array[1..n,1..n]of integer;s:integer;
Begin
  Randomize;
  s:=0;
  For i:=1 to n do
  For j:=1 to n do
  a[i,j]:=random(100)-50;
   For i:=1 to n do
   begin
  For j:=1 to n do
  write(a[i,j]:5);
  writeln;
  end;
  writeln;
  For i:=1 to n do
  For j:=1 to n do
  s:=s+a[i,j];
  k:=n+1;
  If s<0 then
            for i:=1 to n do
            a[i,i]:=0;
  If s>0 then
            for i:=1 to n do
            for j:=1 to n do
            begin
            k:=k-1;
            a[k,j]:=0;
            end;
  If s=0 then writeln('summa=0');
  For i:=1 to n do
   begin
  For j:=1 to n do
  write(a[i,j]:5);
  writeln;
   end;
End.