Исправление saahriktu, (текущая версия) :
program int64overflowtest2;
uses sysutils;
var
x, y, z: Int64;
begin
if ParamCount < 2 then begin
writeln('usage: int64overflowtest2 x y');
exit;
end;
if TryStrToInt64(ParamStr(1), x) = False then x := 0;
if TryStrToInt64(ParamStr(2), y) = False then y := 0;
z := x * y;
writeln(z);
end.
Compiling int64overflowtest2.pas
Linking int64overflowtest2
$ ./int64overflowtest2 99999999999 999999999
7766279530452241921
Исходная версия saahriktu, :
program int64overflowtest2;
uses sysutils;
var
x, y, z: Int64;
begin
if ParamCount < 2 then begin
writeln('usage: int64overflowtest2 x y');
exit;
end;
if TryStrToInt64(ParamStr(1), x) = False then x := 0;
if TryStrToInt64(ParamStr(2), y) = False then x := 0;
z := x * y;
writeln(z);
end.
Compiling int64overflowtest2.pas
Linking int64overflowtest2
$ ./int64overflowtest2 99999999999 999999999
7766279530452241921