[Dmitry_DM]

Здравствуйте! Обращаюсь к знатокам. Есть задача "По заданному натуральному числу N необходимо вычислить количество натуральных чисел, которые являются делителями N! (факториала числа N)."
Доп. условие: лимит времени 1с.
Но у меня не проходит несколько тестов из-за исчерпанного лимита времени. Как можно оптимизировать?

Код:

var fack:Int64;
 i,n,k:Integer;
 begin
 fack:=1;
 Readln(n);
for i:=2 to n do
 fack:=fack*i;

for i:=1 to fack do
if fack mod i=0 then inc(k);
 Writeln(k);
 end.