反素数问题用PASCAL做如果正整数n的约数个数超过比n小的任何数的约数个数,则n称为反素数.输入一个n(n

var i,n,a:longint;
function fan(l:longint):longint;
begin
fan:=0;
for i:=1 to l do
if l mod i=0 then fan:=fan+1;
end;
function su(k:longint):boolean;
begin
su:=true;
for i:=1 to k do
if fan(i)>fan(k) then su:=false;
end;
begin
read(n);
for i:=1 to n do if su(i) then a:=i;
write(a);//write(fan(4)>fan(5))
end.