blob: 58dcc02f2cdbd51a6310761965fdfa993a4f86ed (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
var
i64: Int64;
qa, qb: DWord;
begin
qa := 2147483648;
qb := 536870912;
{$R+}{$Q+}
i64 := int64(qa) * int64(qb);
if i64 <> 1152921504606846976 then
begin
Writeln('Error!');
Halt(1);
end;
end.
|