11 lines
203 B
ObjectPascal
11 lines
203 B
ObjectPascal
begin
|
|
var st := new Stack<integer>;
|
|
var st1 := new Stack<integer>;
|
|
st.Push(1);
|
|
st.Push(2);
|
|
st.Push(3);
|
|
Println(st1,st);
|
|
while st.Count <> 0 do
|
|
st1.Push(st.Pop);
|
|
Println(st1,st);
|
|
end.
|