program uocnhieunhat;

uses crt;

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

       n,i,max,ptu:integer;

function demuoc(k:integer):integer;

var l:integer;

begin

     demuoc:=0;

     for l:=1 to k do

            if k mod l=0 then demuoc:=demuoc+1;

end;

BEGIN

clrscr;

write('Nhap so luong phan tu N: ');   readln(n);

for i:=1 to n do

     begin

             write('Nhap phan tu thu ',i,': ');   readln(n);

      end;

max:=demuoc(A[1]);    ptu:=A[1];

for i:=2 to n do 

      if demuoc(A[i])>max then 

             begin

                      max:=demuoc(A[i]);

                      ptu:=A[i];

              end;

write('Phan tu co nhieu uoc nhat la: ',ptu,' voi ',demuoc(ptu),' uoc');

readln

end.

uses crt;

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

a:array[1..200] of integer;

BEGIN

        clrscr;

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

        for i:=1 to  n do

        begin

                write('Nhap a[',i,']:');

                readln(a[i]);

        end;

        max:=0;

        for i:=1 to n do

        begin

                d:=0;

                for j:=1 to n do

                if a[i] mod a[j]=0 then inc(d);

                if d>max then

                begin

                        vt:=i;

                        max:=d;

                end;

        end;

        write('So co nhieu uoc nhat la:',a[vt]);

        readln

END.

Xin ctlhn!