Question

Дана последовательность чисел среди которых имеется один нуль вывести на печать все числа до нуля включительно

Answer 1

begin

 ReadSeqIntegerWhile(x -> x <> 0).Println

end.