unit U1;

interface

procedure Proc1;

implementation

procedure Proc1;
begin
     WriteLn('Это процедура P1 из модуля unit U1.');
end;

end.