uses PointerTools;

var
  v: integer;
  
begin
  write('Ââåäèòå öåëîå ÷èñëî: ');
  readln(v);
  WriteMemoryToScreen(@v, sizeof(integer));
  readln;
end.