Вводится 6 чисел определить сколько из них положительных и отрицательных

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

begin

 var (sn, sp) := (0, 0);

 foreach var n in ReadSeqInteger(6) do

   if n > 0 then

     sp += 1

   else if n < 0 then

     sn += 1;

 Writeln('Отрицательных ', sn, ', положительных ', sp)

end.