var
  a:array[1..5,1..5] of integer;
  p:array[1..5] of integer;
  max,s,i,j:integer;
begin

    for i:=1 to 5 do begin 
     for j:=1 to 5 do begin
a[i,j]:=random(1,9);
write(a[i,j],'  ');       
     end;
     writeln;
     end;
     
     for i:=1 to 5 do 
     p[i]:=1;
     
      for j:=1 to 5 do begin
      for i:=1 to 5 do begin
      p[j]:=p[j]*(a[i,j]);
      end;
      write(p[j],'  ');
      end;
      
      for i:=1 to 5 do begin
      if  p[i]>max then max:=p[i];
      end;
      
      writeln('max=', max);
     
end.