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

const n = 10;
var a: array [1..n] of integer;
     i, pol, otr: byte;
begin
     WriteLn('Введите последовательности чисел:');
     for i:=1 to n do read(a[i]);
     pol:=0;
     otr:=0;
     for i:=1 to n do
       if a[i]<0 then
          otr:=otr+1
       else
          pol:=pol+1;
     writeln('Положительных: ', pol, ', отрицательных: ', otr);
end.

const n = 10;
var a,i, pol, otr:integer;
begin
WriteLn('Введите последовательности чисел:');
pol:=0;
otr:=0;
for i:=1 to n do
 begin
  readln(a);
  if a<0 then otr:=otr+1
  else if a>0 then  pol:=pol+1;//можно еще и ноли вводить
 end;
writeln('Положительных: ', pol, ', отрицательных: ', otr);
readln
end.

var sum, mid, b1, q: real;
    i, n: byte;
begin
   Write('Введите первый элемент прогрессии: '); 
   read(b1);
   Write('Введите q: '); 
   read(q);
   Write('Введите N: '); 
   read(n);
   sum:=b1;
   for i:=1 to n do
       begin
          b1:=b1*q;
          sum:=sum+b1;
       end;
  mid := sum / n;
  WriteLn('Сумма: ', sum, ', среднее: ', mid);
end.