RosettaCodeData/Task/Special-variables/PascalABC.NET/special-variables-3.pas

type A = class
  n: integer;
  property pn: integer write n := value;
end;