program raf105;

var

 n,i,x,sum,pro,kol1,kol2: integer;

begin

 write('Введите N: ');

 readln(n);

 writeln('Вводите ',n,' чисел по очереди');

 pro:= 1;

 for i:=1 to n do

 begin

   readln(x);

   if x > 0

     then begin

       sum:= sum+x;

       kol1:= kol1+1;

     end;

   if x < 0

     then begin

       pro:= pro*x;

       kol2:= kol2+1;

     end;

  end;

  writeln('Количество положительных: ',kol1);

  writeln('Сумма положительных: ',sum);

  writeln('Количество отрицательных: ',kol2);

  writeln('Произведение отрицательных: ',pro);

end.

PascalABC 3.4.2