Ответ:

begin

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

end.