pascalabcnet/InstallerSamples/NETLibraries/NET4.0/BigIntegerExample.pas

// Использование длинных целых. Вычисление 100!

begin
  var n := 100;
  var f: BigInteger := 1;
  for var i:=2 to n do
    f := f * i;
  Print($'{n}! = {f}');
end.