type
  TClass = class
    constructor Create(i: integer) := writeln(2);
    procedure Create(i: integer) := writeln(2);
    procedure test;
    begin
      
    end;
  end;

begin
  
end.