Question

Числа вводятся пока не ввели ноль. Посчитать сумму отрицательных чисел
Программу на Паскале, пожалуйста, очень срочно

Answer 1

===== PascalABC.NET =====

begin

 ReadSeqIntegerWhile(p -> p <> 0)

     .Where(p -> p < 0).Sum.Print

end.