program matrica;
uses crt;
const n = 4;
      l = 5;
type  matr = array [1..n,1..l] of integer;  
var   a:matr;
      i:integer;                            
      j:integer;
      t:array[1..4] of integer;            
      max:integer;
      m:real;
      summa:integer;
begin                                       
      write('исходная матрица');
      clrscr;
      randomize;
      writeln;
      for i:= 1 to n do
begin
      for j:= 1 to l do
begin
      a[i,j]:=random(10);
      write(a[i,j], ' ');
end;
 
      writeln;                   
end;
       writeln;
       for i:= 1 to 4 do
begin
       max:=a[i,1];
       for j:=2 to 5 do
       if max<a[i,j] then max:=a[i,j];
       t[i]:=max;
       write(t[i],' ');           
end;
       writeln;
       writeln;
begin
       summa:=0;                   
       summa:=t[1]+t[3]+t[4];
 
       m:=summa/3                  
end;
       write('m=',m:2:2);          
       readln;
end.