unit MyB; 

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

begin
  
end.