паскаль.
В последовательности целых чисел определить, каких чисел больше:
положительных или отрицательных. Количество чисел в
последовательности НЕ известно, ввод заканчивается числом 0

--- PascalABC.NET 3.6.2 ---

begin

 var (pos, neg) := (0, 0);

 ReadSeqIntegerWhile(p -> p <> 0)

   .ForEach(p -> begin

     if p >= 0 then pos += 1 else neg += 1;

     end);

 if pos > neg then println('Sequence contains more positive numbers') else  

   if neg < pos then println('Seqnuece contains more negative numbers') else println('Sequence contains equal count of positive and negative numbers');

end.