unit unit0002a;

interface

procedure p2;

implementation

procedure p2;
begin
  Writeln('main -> p1 -> p2');
end;

end.