//Задание 4.15 Кучеренко
const m = 4;

Begin
  
  var 
    n: integer;
  var
    T: array[0..100,0..100] of integer;
  write('Vvedite n: ');
  readln(n);
  
  writeln('Vvedite dannie v massive T(', m, ',', n, '):');
  var i, j: integer;
  for i := 0 to m-1 do
  begin
    for j := 0 to n-2 do
      read(T[i][j]);
    readln(T[i][n-1]);
  end;
  
  var max: integer;
  if m > n then
    max := m
  else max := n;
  
  
  var maxPositive: integer; 
  maxPositive := 0;
  for i := 0 to max do
    if T[i][i] > 0 then
      if T[i][i] > maxPositive then
        maxPositive := T[i][i];
        
  writeln('Naibolshij polozhitelnij element glavnoj diagonali = ', maxPositive);
  
end.