Вводится последовательность целых чисел, оканчивающаяся нулем. число 0 в последовательность не входит. выведите элементы последовательности в обратном порядке. для хранения данных используйте стек. входные данные вводится последовательность целых чисел, по модулю не превосходящих 10000. ввод заканчивается, когда будет введено число 0. всего чисел не более 100 (не считая нуля). выходные данные выведите элементы этой последовательности в обратном порядке, через пробел.
begin
var s:= new stack<integer>;
var n:integer;
Writeln('Вводите числа, ноль завершает ввод');
repeat
Read(n);
if n<>0 then s.Push(n);
until n=0;
for var i:=1 to s.Count do begin
Write(s.Peek,' ');
s.Pop
end;
Writeln
end.
Пример
Вводите числа, ноль завершает ввод
3 6 9 12 5 11 -4 8 0 2 9
8 -4 11 5 12 9 6 3