fpc/tests/tbs/tb0713.pp
2024-03-24 14:30:07 +01:00

10 lines
95 B
ObjectPascal

{$mode objfpc}
{$Q+}
uses
Sysutils;
begin
writeln(Int64.MinValue+Int64(Random(0)));
end.