with
ada
.
text_io
;
use
ada
.
text_io
;
with
intstackpkg
;
use
intstackpkg
;
procedure
intstkclient
is
S
:
StackType
;
begin
push
(
3
,
S
);
push
(
4
,
S
);
push
(
5
,
S
);
for
I
in
1
..
3
loop
Put
(
Integer
'Image
(
Top
(
S
)));
Pop
(
S
);
end loop
;
end
intstkclient
;