RosettaCodeData/Task/Modular-exponentiation/PascalABC.NET/modular-exponentiation-1.pas

6 lines
258 B
ObjectPascal

##
var a := '2988348162058574136915891421498819466320163312926952423791023078876139'.ToBigInteger;
var b := '2351399303373464486466122544523690094744975233415544072992656881240319'.ToBigInteger;
var m := Power(10bi, 40);
Writeln(BigInteger.ModPow(a, b, m));