var
  x: Int
  c: const Int
  p: ^Int
  pc: ^const Int
  v: Pointer
  cv: const Pointer := nil
  cv2: const Pointer := @x
  cv3: const Pointer := @c

begin
  v := p;
  v := @x
end.