Написать программы, при выполнении которых в целочисленном массиве определяется число соседств простого числа и четного с нечетным индексом.

program p;
const N:=30;
var i,k :integer;
a[i]: array[1..N] of integer;
begin
randomize;
for i:=1 to N do
a[i]:= random (100);
for i:=1 to N do
begin
if (((a[i] mod 2)<>0) then if ((a[i] mod 3)<>0) then if ((a[i] mod 4)<>0) then if ((a[i] mod 5)<>0) then if((a[i] mod 6)<>0) then if ((a[i] mod 7)<>0) then if ((a[i] mod 8)<>0) then if (a[i] mod 9)<>0) and (a[i+1] mod 2 <>0) and ((i+1)mod 2 <>0) then k:=k+1;
end;
writeln(k);
end.

const
  nmax=100;
type
  Tarr=array[1..nmax] of integer;
var
  a:Tarr;
  i,n,k,s:integer;
function Simple(a:integer):boolean;//funktsia dlya proverki prostoty chisla
var
  i:integer;
  f:boolean;
begin
  if a<=1 then
    f:=false
  else
    f:=true;
  for i:=2 to a div 2 do
    if a mod i=0 then
      begin
        f:=false;
        break;
      end;
  Simple:=f;
end;
begin
  randomize;
  repeat
    write('Razmer massiva, ne bolee ',nmax,': ');
    readln(n);
  until n in [2..nmax];
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      a[i]:=random(50);
      write('a[',i,']=',a[i],' ');
    end;
  writeln;
  s:=0;//kol-vo sosedstv
  k:=n mod 2;//uznaem chetnost razmera massiva
  i:=2;//nachinaem s pervogo chetnogo indeksa
  while i<=n-k do//perebiraem vse chetnye indeksy do poslednego chetnogo indeksa
    begin
      if Simple(a[i]) then//esli element - prostoe chislo
        if not odd(a[i-1]) then//proveryem levogo soseda na chetnost
          begin
            writeln('Prostoe chislo ',a[i],' sosed chetnogo s nechetnym indeksom ',a[i-1]);
            inc(s);//zaschityvaem sosedstvo
          end;
       if Simple(a[i]) then
        if i<>n then//esli massiv chetnoi razmernosti, ne nado proveryat pravogo soseda
          if not odd(a[i+1]) then//proveryem pravogo soseda na chetnost
            begin
              writeln('Prostoe chislo ',a[i],' sosed chetnogo s nechetnym indeksom ',a[i+1]);
              inc(s);//zaschityvaem sosedstvo
            end;
      inc(i,2);//berem sled. chetniy indeks
    end;
  if s=0 then
    writeln('Sosedstv ne naideno')
  else
    write('Kol-vo sosedstv:',s);
end.