{* Задача 125 *}

Unit ZADACH125;
Interface
Implementation
Begin
 writeln('Дано целое число N<20. Составьте программу, которая определяет кол-во различных делителей числа N!. ');
End.

Program pas13529;

Uses zadach125.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  kol_vo : longint;
  i      : longint;
  n      : longint;
  f      : longint;
Begin
  clrscr; {* Очищаем экран *}
  write('N=');
  readln(n);
  If n > = 20 Then
    halt;
  f := 1;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
    f := f * i;
  For i := 1 To f Do {* Увеличиваем i от 1 до f с шагом 1 *}
    If f Mod i = 0 Then
    Begin
      inc(kol_vo); {write(i, ' ')}
    End;
  }
  write('Кол-во различных делителей числа N!=', f, ' : ', kol_vo);
  readln; {* Ждем подтверждения пользователя *}
End.