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

begin
  
end.