Const
 N=5;

Type
 Mtr=Array[1..N,1..N] of Integer;


Var
 Matrix:Mtr;

 p,q:byte;
          Max:Integer;
 i,j,k:byte;
 M:Mtr;

Begin

k:=0;
 for j:=1 to N do
  begin
   Max:=M[1,j];
   for i:=1 to j do if M[i,j-i+1]>Max then Max:=M[i,j-i+1];
   Inc(k);

  end;
 for i:=2 to N do
  begin
   Max:=M[i,N];
   for j:=N downto i do if M[N-j+i,j]>Max then Max:=M[N-j+i,j];
   Inc(k);

  end;