program H_Ledgardo_uzdavinys;
  { 9 u‘davinio s…lyga }
{----------------------------------------------------------}
  const M = 1;
        N = 10;
  type masyvas = array [m..n] of integer;
  function daug (a : masyvas) : integer;
    var i,            { elemento indekso numeris }
        r,            { ir elemento reik˛m‚ }
	k,            { kelintas vienodas }
	sk : integer; { vienod— skai‡ius }
  begin
    r := a[m];
    sk := 1; k := 1;
    for i := m + 1 to n do
      if a[i] = a[i - 1]
	 then begin
                k := k + 1;
                if k > sk
                   then begin
                          r := a[i];
                          sk := k
                        end
	      end
         else k := 1;
    daug := r
  end;
{----------------------------------------------------------}
  var a : masyvas;
      i : integer;
begin
  writeln ('Masyvo ilgis - ', N - M + 1);
  writeln ('­veskite masyvo elementus: ');
  for i := m to n do
    read (a[i]);
  writeln (daug(a));
end.