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.