13 lines
154 B
ObjectPascal
13 lines
154 B
ObjectPascal
|
uses PointerTools;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
v: integer;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
write('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>: ');
|
|||
|
|
readln(v);
|
|||
|
|
WriteMemoryToScreen(@v, sizeof(integer));
|
|||
|
|
readln;
|
|||
|
|
end.
|
|||
|
|
|