13 lines
154 B
ObjectPascal
13 lines
154 B
ObjectPascal
uses PointerTools;
|
|
|
|
var
|
|
v: integer;
|
|
|
|
begin
|
|
write('Ââåäèòå öåëîå ÷èñëî: ');
|
|
readln(v);
|
|
WriteMemoryToScreen(@v, sizeof(integer));
|
|
readln;
|
|
end.
|
|
|