blob: d78dada0e9fd240e6bf82944e1575a5be909ea53 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{ Source provided for Free Pascal Bug Report 2691 }
{ Submitted by "Luk Vandelaer" on 2003-09-22 }
{ e-mail: luk.vandelaer@wisa.be }
program int64prob;
uses sysutils;
var
x : int64;
begin
x := $FFFF shl 32;
writeln (format ('%d %d %d',
[x mod $10000, x div $10000, x div $10000]));
end.
|
