uses crt;
const n=5;
var l,k:array[1..n,1..n] of integer;
s1,s2,i,j:integer;
begin
clrscr;
for i:=1 to n do begin
for j:=1 to n do begin
k[i,j]:=random(100);
if i>j then s1:=s1+k[i,j];
if i<j then s2:=s2+k[i,j];
write(k[i,j]:3);
end;
writeln;
end;
for i:=1 to n do begin
if s1>s2 then l[i,i]:=0;
for j:=1 to n do begin
if s1<s2 then l[j,i]:=k[i,j] else if i=j then l[i,j]=0 else l[i,j]:=k[i,j];
end;
end;
for i:=1 to n do begin
for j:=1 to n do begin
write(l[i,j]:3);
end;
writeln;
end;
readkey;
end.