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

begin

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

end.