type
  CI = const Int
  CCI = const CI

var
  x: CCI := 8
  y: const CI := 9

begin
end.