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