with Int_Vermek, Ada.Text_IO, Ada.Integer_Text_IO;
use Int_Vermek, Ada.Text_IO, Ada.Integer_Text_IO;

procedure Menu is

    Parancs: Integer;

    procedure Betesz( V: in out Verem ) is
         Adat: Integer;
    begin
         Put("Mit akar betenni? "); Get(Adat);
         Push(V,Adat);
    end Betesz;

    procedure Kivesz( V: in out Verem ) is
         Adat: Integer;
    begin
         Pop(V,Adat);
         Put("A kivett adat: "); Put(Adat); New_Line;
    exception
         when Üres_A_Verem =>
                 Put_Line("Nem tudom végrehajtani. Üres a verem.");
    end Kivesz;

    V: Verem;

begin
    loop
        Put_Line("Elvégezhető tevékenységek: push (1), pop (2), quit (0)");
        Get(Parancs);
        case Parancs is
             when 1 => Betesz(V);
             when 2 => Kivesz(V);
             when 0 => exit;
             when others => null;
        end case;
    end loop;
end Menu;