Подсчитать количество отрицательных элементов массива, которые стоят на четных местах

program pr;
var s:array [1..30] of real;
var i,b:integer;
begin
b:=0;
for i:=1 to 30 do begin
s[i]:=(5*sin(2*i))+(4*cos(6*i));
if odd(i) then
else
if s[i]<0 then
inc(b);
end;
for i:=1 to 30 do
write(s[i]:3:2,' ');
writeln;
write('чисел=',b);
readln;
end.

uses crt;
const n=30;
var c:array [1..n] of real;
i,x:integer;
 
begin
   Writeln('Исходный массив А: ');
     for i:=1 to n do
       begin
       randomize;
       c[i]:=random(9)+1;
       Write(c[i]:0:0,' ');
       end;
     writeln;
 
     for i:=1 to n do
         begin
         c[i]:=5*sin(2*i) + 4*cos(6*i);
         if (not odd(i)) then
         if c[i]<0 then inc(x);
         end;
     writeln;
 
Writeln('Новый массив А: ');
     for i:=1 to n do
       begin
       Write(c[i]:0:0,' ');
       end;
     writeln;
     
Writeln('Кол-во: ',x);
end.

program mas;
uses crt;
 var
  a:array[1..10] of real;
  i,kol:integer;
 
    begin
     clrscr;
     for i:=1 to 10 do begin
     a[i]:=5*sin(2*i)+4*cos(6*i);
     write(a[i]:3:2,' ');
                  end;
     writeln;
     for i:=1 to 10 do
     if (a[i]<0) and (i mod 2=0) then
     inc(kol);
     write('количество отрицательных элементов,стоящих на четных местах=',kol);
              end.