PascalABC.NET 3.6.2
begin
var a := ReadSeqIntegerWhile(p -> p <> 0);
a.Where(p -> p < 0).Count.Println;
end.
Объяснение:
