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

type A = class
  n: integer;
  constructor (n: integer);
  begin
    Self.n := n
  end;
end;