все упирается в проблемму вычисления факториалов больше 1753! (for extended) и 170! (for real)
CLON, создай один раз массив FACT от 1 до 1753 со значениями факториалов и просто бери оттуда значения, когда потребуется.
FACT(1)=1
FACT(2)=2
FACT(3)=6
....
итд
Инициализировать этот массив можно как
FACT(1)=1
for i=2 to 1753
FACT(i)=FACT(i-1)*i
next i
