program AAA;
const n = 3;
var a:array [1..n,1..n] of integer;
    i,j,k,max:integer;
begin
for i:=1 to n do
  begin
  for j:=1 to n do
    begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
    end;
  writeln;
  end;
k:=0;
for i:=1 to n do
  begin
  k:=k+1;
  for j:=n downto k do
    if a[i,j]>max then max:=a[i,j];
  end;
writeln(max);
end.