unit MyB; 

procedure p;
begin
  Println('MyB.p');
end;

begin
  
end.