package VEREM_V is     -- verem tipus vektorban abrazolva
	subtype Elem is INTEGER;
	type Verem is limited private;

        procedure Push  ( v: in out Verem; e: in Elem );
        procedure Pop   ( v: in out Verem );
        function  Top   ( v: Verem ) return Elem;
        function  Full  ( v: Verem ) return BOOLEAN;
        function  Empty ( v: Verem ) return BOOLEAN;
private
        MAX_MERET: constant := 100;
        type Vektor is array (1..MAX_MERET) of Elem;
        type Verem is record
                mutato: INTEGER := 0;
                tartalom: Vektor;
                end record;
end VEREM_V;