with Ada.Integer_Text_IO;              -- figyeljuk meg, hogy a separate_eljarasos_program nem fugg ettol a csomagtol kozvetlenul ...

separate(separate_eljarasos_program)
procedure Szamot_Kiir is
begin
   Ada.Integer_Text_IO.Put(I, 0, 10);  -- ... viszont latja a valtozoit ...
   Ada.Text_IO.New_Line;               -- ... es az altala with -elt csomagokat is
end Szamot_Kiir;