program tan_suat;

uses crt;

var A:array[1..30] of integer;

     n,i,j,d,max:byte;

     ptu,tg:integer;

begin

       clrscr;

       write('Nhap n: ');  readln(n);

       for i:=1 to n do

              begin

                     write('A[',i,']= ');  readln(A[i]);

              end;

       for i:=1 to n do

              write(A[i],' ');

       writeln;

       for i:=1 to n-1 do

              for j:=i+1 to n do

                     if A[i]>A[j] then

                            begin

                                   tg:=A[i];

                                   A[i]:=A[j];

                                   A[j]:=tg;

                            end;

       i:=1;  d:=1;   max:=1;  ptu:=A[1];

       while i<n do

              begin

                     if A[i]=A[i+1] then d:=d+1

                     else begin

                            if d>=max then 

                                   begin

                                          max:=d;

                                          ptu:=A[i];

                                   end;

                           d:=1;

                     end;

                     i:=i+1;

              end;

       writeln('So lan xuat hien nhieu nhat la: ',max);

       writeln('Phan tu do la: ',ptu);

       readln;

end.

uses crt;
var a,d,b,c:array[1..100] of integer;
var i,n,j,t,s,k,tg,th,id:integer;
kt:boolean;
begin
clrscr;
kt:=true;
write('Nhap n la:');readln(n);
for i:=1 to n do
    begin
    write('a[',i,']=');
    readln(a[i]);
    end;
for i:=1 to n do
d[i]:=1;
for i:=1 to n-1 do
begin
j:=i+1;
while j<=n do
if a[i]=a[j] then begin
             for k:=j to n do
             a[k]:=a[k+1];
             n:=n-1;
             d[i]:=d[i]+1;
             end else j:=j+1;
if d[i]>1 then b[i]:=d[i];
end;
writeln(a[1]);
readln;
end.