---

type
  TRectangle = class
  private
    FX: integer;
    FY: integer;
  public
    procedure IncX;
    procedure IncY;
    property X: integer read FX;
    property Y: integer read FY;
  end;

procedure TRectangle.IncX;
begin
  FX := FX + 1;
end;

procedure TRectangle.IncY;
begin
  FY := FY + 1;
end;

begin
  var R := new TRectangle;
  R.IncX;
  R.IncY;
  Writeln('X = ', R.X);
  Writeln('Y = ', R.Y);
end.