Vijos p1172 反质数（求约数个数）

P1172 反质数数

对于任何正整数x，其约数的个数记作g(x)。例如g(1)=1、g(6)=4。
如果某个正整数x满足：g(x)>g(i),(i大于0小于x)则称x为反质数。例如，整数1，2，4，6等都是反质数。
现在给定一个数N，你能求出不超过N的最大的反质数么？
格式
输入格式
输入只有一行，一个数N（1<=N<=2,000,000,000）。
输出格式
输出也只有一行，为不超过N的最大的反质数。
样例1
1000
样例输出
840
program df;
var i,j,n,m,k,t:longint;
x,y,z,kk,tt:int64;
g:array[0..1000] of int64;
a:array[1..13] of longint=(2,3,5,7,11,13,17,19,23,29,31,37,41);
procedure dfs(y,x,z,t:longint); //y为当前的数，z为当前的约数个数，x为当前要乘的数，t为连乘的次数
var i,j:longint;
s:int64;
begin
s:=y;
if (z>kk) or((kk=z) and (s小于tt)) then（小于号博客莫名其妙显示不出来，见谅）
begin
kk:=z;
tt:=s;
end;
for i:=1 to t do
begin
s:=s*a[x];
if s>n then break;
dfs(s,x+1,z*(i+1),i);
end;
end;

begin
readln(n);
dfs(1,1,1,10);
writeln(tt);
end.