Написать процедуру присоединения стека S2 к стеку S1
помогите

Эмм, я извиняюсь за вторжение. Зачем использовать стеки, когда есть массивы, из которых можно вытащить любой элемент, а не только вершину?

В условии задачи сказано, что надо работать со стеками, а не с массивом, мысленно объявив его стеком.

А так - проще вообще работать с последовательностями))))

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016begin  var s1:=new Stack<integer>;  var s2:=new Stack<integer>;  foreach var e in Range(1,10) do s1.Push(e);  s1.Println;  foreach var e in Range(20,25) do s2.Push(e);  s2.Println;  foreach var e in s2.Reverse do s1.Push(e);  s1.Printlnend.Тестовое решение:10 9 8 7 6 5 4 3 2 125 24 23 22 21 2025 24 23 22 21 20 10 9 8 7 6 5 4 3 2 1