[Dmitry_DM]

Сообщение от M.A.D.M.A.N.

Именно в такой последовательности "Clear Interrupt-Enable Flag" и "Set Interrupt-Enable Flag".

В принципе второй цикл можно затолкать в первый.

Типа:

Код:

var fack:Int64;
 i, j,n,k:Integer;
 begin
 fack:=1;
 Readln(n);
for i:=2 to n do
begin
 for j := fack to fack * i do
  inc(k, integer(fack mod j=0));
 fack:=fack*i;
end;

 Writeln(k);
 end.

Есть тесты: ввод 4 вывод 8
А по вашему коду ввод 4 вывод 76808195