with Stack_Int;
use  Stack_Int;

procedure Demo_GS is
 -- Пример использования пакета Generic_Stack
 -- на стеке целых величин.

 Stack1, Stack2 : Stack;
 Dummy : Integer;
begin
 Push(Stack1, 1); -- Помещаем 1 в Stack1.
 Push(Stack1, 2); -- Помещаем 2 в Stack1.
 Stack2 := Stack1; -- Копируем содержимое stack1 в stack2.
 Pop(Stack2, Dummy); -- Dummy теперь 2.
 Pop(Stack2, Dummy); -- Dummy теперь 1.
 --  Теперь Stack2 пуст а Stack1 содержит два элемента.
end Demo_GS;