program ÂÂÂ;
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:=n;
for i:=1 to n do
  begin
  for j:=1 to k do
    begin
    if a[i,j]>max then max:=a[i,j];
    end;
    k:=k-1;
  end;
writeln(max);
end.