pascalabcnet/TestSuite/formatter_tests/should/property4.pas

type
  TExample = class
  private
    fX: integer;
  
  public
    property X: integer
    read fX
    write
      begin
        if value < 0 then
          raise new System.ArgumentException();
        fX := value;
      end;
    property Y: integer read fX write begin writeln(2); end;
  end;

begin
end.