phía trước nó còn một số cách nữa nhưng anh chỉ chọn cách phân tích cuối cùng tìm thấy để xuất ra thôi nếu muốn xuất hết các cách ra cũng đc thôi cái đó thuộc về kĩ năng sau khi lấy phần tử đầu tiên làm mốc ta tiếp tục chọn phần tử thứ 2 làm mốc, tiếp đến là thứ 3, thứ 4,...làm mốc 
var m,i,j,max,e,csmax:longint;
k:array[1..1000]of longint;
d:array[1..1000]of longint;
f,g:text;
begin
assign(f,'inp.inp');
reset(f);
assign(g,'inp.out');
rewrite(g);
readln(f,m);
for i:=1 to m do readln(f,k[i]);
for i:=1 to m do
begin
max:=-1;
for j:=1 to k[i] do
begin
d[j]:=0;
for e:=2 to j-1 do
if j mod e=0 then d[j]:=d[j]+1;
if d[j]>max then
begin
max:=d[j];
csmax:=j;
end;
end;
writeln(g,csmax);
end;
close(f);
close(g);
end.Uả e tưởng số phản nguyên tố là số có nhiều ước số nhất trong khoảng nào đó mà
) )