unit MyA; 

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

begin
  
end.