Массив. Найти среднее арифметическое отрицательных элементов на четных местах

prorgam ppp;
var B : array[1..12] of integer;
     i, sum : integer;
     srednee : real;
begin
  for i := 1 to 12 do
    read(B[i]);
  for i := 1 to 12 do
    if not odd(i) and (B[i] < 0) then
      sum := sum + B[i];
  srednee := sum / 12;
  writeln(srednee);
  readln;
end.

srednee := sum / 12;
  writeln(srednee);

writeln(sum/6);

prorgam ppp;
var B : array[1..12] of integer;
     i, sum, cnt : integer;
begin
  for i := 1 to 12 do
    read(B[i]);
  readln;
  cnt := 0;
  for i := 1 to 12 do
    if not odd(i) and (B[i] < 0) then
    begin
      sum := sum + B[i];
      cnt := cnt + 1;
    end;
  if cnt <> 0 then
    writeln(sum / cnt);
  readln;
end.

Uses CRT;
Const n=12;
var a:array[1..n] of integer;
    i,m:integer;
    s:real;
begin
     ClrScr;
     for i:=1 to n do
     begin
          a[i]:=Random(15)-5;
          write(' a[',i,']=',a[i]);
     end;
     for i:=1 to n do
     if (i mod 2=0) and (a[i]<0) then
     begin
          s:=s+a[i];
          inc(m);
     end;
s:=s/m;
writeln('');
writeln('Ñðåäíåå àðèôìåòè÷åñêîå=',s);
end.