pascalabcnet/TestSuite/bigint.pas

8 lines
176 B
ObjectPascal
Raw Permalink Normal View History

2015-05-14 22:35:07 +03:00
begin
var a : BigInteger := 5;
var b : BigInteger := 3;
assert(a+b=BigInteger(8));
assert(a-b=BigInteger(2));
assert(a*b=BigInteger(15));
var x := integer(12);
end.