begin
var a := ReadSeqIntegerWhile(t -> t >= 0).ToArray;
Writeln('Сохранено результатов:', a.Length)
end.
begin
var a := ReadSeqIntegerWhile(t -> t >= 0).ToArray;
Writeln('Сохранено результатов:', a.Length)
end.
Ввод завершается любым отрицательным значением.