program vd;

uses crt;

var a,b:array[1..1000] of integer;

    i,j,dem,v,f,n,max,t : integer;

begin

read(n);

for i:=1 to n do read(a[i]);

v:=1;

for i:=1 to n do

  begin

    for j:=1 to i-1 do

    if a[i] = a[j]  then t:=1;

    if t=0 then

      begin

       b[v] := a[i];

       inc(v);

      end;

    t:=0;

  end;

max :=0;

for i:=1 to v-1 do

 begin

  for j:=1 to n do

  if b[i] = a[j]  then inc(dem);

  if dem > max then

    begin

     f := b[i];

     max := dem;

    end;

  dem :=0;

 end;

write('cac so xuat hien trong mang: ');

for i:=1 to v-1 do write(b[i]:3);

writeln;

write('so xuat hien nhieu nhat: ',f);

readln;

end.

uses crt;
var a,b:array[1..10000] of longint;
   n,i,vt,max:longint;
begin
clrscr;//n
readln(n);
for i:=1 to n do
begin
readln(a[i]);
b[a[i]]:=b[a[i]]+1;
end;
for i:=1 to n do
begin
if b[a[i]]>max then
begin
 max:= b[a[i]];
 vt:=a[i];
end;
if b[a[i]] <> 0 then
begin
 write(a[i],' ');
 b[a[i]]:=0;
end;
end;
writeln;
writeln('so xuat hien nhieu nhat: ',vt);
readln;
end.