procedure processing(var p,v,t: single; q:PMatr);
var
n,m,k,i,j,x,y: single;
begin
for k:=1 to y do
begin
p:q^[t]^[1];
for j:=1 to y do
while i<=x do
begin
if p=q^[i]^[j] then begin v:=v+1; i:=x;
i:=i+1;
end;
for j:=1 to y do
while i<=x do
begin
if n:=q^[i]^[j] then begin n:=q^[i]^[j]; m:=m+1; i:=x
i:=i+1;
end;
end;
end;

Tint=integer;
Treal=real;
TrealFile= file of Treal;
Tmas=array [1..1] of TReal;
PMas=^Tmas;
TMatr=array [1..1] of PMas;
PMatr=^Tmatr;

type
  tmatrix = array[1 .. 4, 1 .. 5] of real;

procedure processing(numrow: integer; q:tmatrix; rows, cols: integer;
          var number: real);

  function Exists(row: integer; value: real): Boolean;
  const
    Eps = 0.0001; // Чтобы правильно сравнивать вещественные числа
  var
    i: Integer;
  begin
    Exists := True;
    for i := 1 to rows do
      if Abs(value - q[i, row]) < Eps then exit;
    Exists := False;
  end;

var
  i, j, Cnt, maxCnt: integer;
  maxVal: Real;
begin
  maxCnt := 0;
  for i := 1 to cols do
  begin
    Cnt := 0;
    for j := 1 to cols do
      if Exists(j, q[1, i]) then Inc(Cnt);

    if Cnt > maxCnt then
    begin
      number := q[1, i]; maxCnt := Cnt;
    end;
  end;
end;

const
  a: tmatrix = (
    (1, 6, 3, 4, 5),
    (6, 3, 4, 0, 9),
    (6, 5, 1, 3, 5),
    (3, 8, 6, 4, 2)
  );

var value: real;
begin
  processing(1, a, 4, 5, value);
  writeln(value:0 :0);
end.