program ideone;
uses sysutils;
var
xi : int64;
yi : int64;
x: double absolute xi;
y: double absolute yi;
begin
xi := StrToInt64('$4000000000000000');
yi := StrToInt64('$4010000000000000');
writeLn(x);
writeLn(y);
end.
cHJvZ3JhbSBpZGVvbmU7CnVzZXMgc3lzdXRpbHM7Cgp2YXIKICB4aSA6IGludDY0OwogIHlpIDogaW50NjQ7CiAgeDogZG91YmxlIGFic29sdXRlIHhpOwogIHk6IGRvdWJsZSBhYnNvbHV0ZSB5aTsKYmVnaW4KCXhpIDo9IFN0clRvSW50NjQoJyQ0MDAwMDAwMDAwMDAwMDAwJyk7Cgl5aSA6PSBTdHJUb0ludDY0KCckNDAxMDAwMDAwMDAwMDAwMCcpOwoJd3JpdGVMbih4KTsKCXdyaXRlTG4oeSk7CmVuZC4=