Дана последовательность чисел среди которых имеется один нуль вывести на печать все числа до нуля включительно
begin
ReadSeqIntegerWhile(x -> x <> 0).Println
end.