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