begin
var a := ReadSeqIntegerWhile(t -> t >= 0).ToArray;
Writeln('Сохранено результатов:', a.Length)
end.