[M.A.D.M.A.N.]

Код:

var fack:Int64;
 i,n,k:Integer;
 begin
 fack:=1;
 Readln(n);
asm
  cli
end
for i:=2 to n do
 fack:=fack*i;
 
for i:=1 to fack do
if fack mod i=0 then inc(k);
asm
  sti
end
 Writeln(k);
 end.