Помогите решить задачу на паскале

[Bauyrzhan]

Найти количество делителей n-значного натурального числа (n>20)

[Скандербег]

  ReadLn(N);
  K := 0;
  for I := 2 to N do
    if N mod I = 0 then begin
      Inc(K);
      Write(I, ', ');
    end;
  WriteLn('Количество делителей: ', K);

[Chudo4258]

Тут наверно подразумевалось использовать длинную арифметику. (т.к. даже LongInt не подходит, при n>20)