with Ada.Text_IO;

with sorsologep;               --a sajat csomagunk

use Ada.Text_IO;
--use sorsologep;              --ha szeretnenk hasznalhatjuk a use-t is 

procedure sorsologep_teszt is
begin
   Ada.Text_IO.Put_Line("Program indul");
   begin
     sorsologep.golyokletrehozasa;                   --|a "csomagban levo mindenre" .-tal hivatkozunk
     sorsologep.sorsolasimodbekeres;                 --|vagy use-oljuk...
     sorsologep.sorsolas;                            --itt pl. meghivjuk a sorsologep csomag sorsolas eljarasat 
     sorsologep.kisorsoltgolyokkiirasa;
    
   exception
       when others => put_line("Kivetel lepett fel!");    

   end;
   Ada.Text_IO.Put_Line("Program vege");
end;