unit MyA; 

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

begin
  
end.