var a: array[1..4,1..5] of integer;
i,j,max:integer;
begin
for i:=1 to 4 do begin
for j:=1 to 5 do begin a[i,j]:=random(60); write(a[i,j]:4); end;writeln;end;
max:=a[1,1];
for i:=1 to 4 do
for j:=1 to 5 do
if a[i,j]>max then max:=a[i,j];
writeln(max);
end.