uses crt;
const n = 9;
var
a: array [1..n, 1..n] of integer;
i,j,s,max:integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j],' ') ;
end;
writeln;
end;
max:=a[2,1];
for i:=2 to n do
for j:=1 to i - 1 do
if a[i,j]>=max then max:=a[i,j];
s:=0;
for i:=1 to n do
for j:=i to n do
begin
s:=s+a[i,j];
if a[i,j]>=max then write(a[i,j],' ');
end;
writeln;
writeln('s=',s);
end.