with Ada.Text_IO;                                                                                  -- figyeljuk meg, hogy with-eltuk az Ada.Text_IO csomagot (A Text_IO az Ada csomag gyerekcsomagja)
                                                                                                   -- ez a with felesleges, es meg sok mas...

package body Alap_Csomag is

   -- A specifikacioban azert neveztuk at az Ada.Text_IO csomagot, es fedtuk el az Ada nevet,
   -- hogy itt mar ne tudjunk ra kozvetlenul hivatkozni az Ada.Text_IO-n "belul levo dolgokra"

   -- (egy "csomagon belul levo dologra" . -tal hivatkozunk)


   procedure Muvelet is
   begin

      -- Ada.Text_IO.Put_Line("Muvelet");                                                          -- erre a sorra a kovetkezo forditasi hibat kapjuk: missing "with Ada.Text_IO;"

      Atnevezett_Ada_Text_IO.Put_Line("Muvelet");


   end Muvelet;


   function Float(Tort : Tort_Tipus) return Standard.Float is                                      -- figyeljuk meg, hogy minden minosites fontos
   begin
      return Standard.Float(Standard.Float(Tort.Szamlalo) / Standard.Float(Tort.Nevezo));          -- figyeljuk meg, hogy minden minosites fontos
   end Float;

   

   
   
   
   
   package Egy_Akar_Masik_Fajlban_Levo_Csomag is
   
      type Egesz_Tipus is new Positive range 1..10;
   
   end Egy_Akar_Masik_Fajlban_Levo_Csomag;
   
   type A_Gyerekcsomagok_Fele_Is_Atlatszatlan_Tipus is new Egy_Akar_Masik_Fajlban_Levo_Csomag.Egesz_Tipus;

   
end Alap_Csomag;