Найти произведение всех натуральных чисел от 1 до 100 на языке pascal

// PascalABC.NET 3.2, сборка 1383 от 09.02.2017 // Внимание! Если программа не работает, обновите версию! begin   Writeln(Range(1,100).Aggregate(BigInteger(1),(x,y)->x*y)) end. Результат 93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000

На турбо паскале невозможно сделать этого, т.к. идет переполнение возможного лимита данных(real, longint). В идеале это должно выглядеть так: var a:real; i:byte; begin a:=1; for i:=1 to 100 do begin a:=a*i; end; writeln(a); end.