Найти сумму элементов, имеющих нечетные индексы.

const
  n = 20;
var
  a: array[1..n] of integer;
  i: integer;
  sumOdd: integer; { сумма не четных }
  countMoreThenVal: integer; 
      {количество элементов массива, 
      значения которых больше 
       заданного числа А и кратны 5.  }
  first: integer;
  num: integer;
begin
  randomize;
  write('Enter number: ');
  readln(num);
  countMoreThenVal := 0;
  sumOdd := 0;
  for i := 1 to n do
  begin
    a[i] := random(31) - 10;
    write(a[i], ' ');
    if (a[i] > num) and (a[i] mod 5 = 0) then
      inc(countMoreThenVal);
    if (odd(i)) then
      inc(sumOdd, a[i]);
  end;
  first := -1;
  for i := 1 to n do
    if (a[i] < 0) and (a[i] mod 5 =2) then
    begin
      first := i;
      break;
    end;
  writeln;
  writeln('Первое задание: ', sumOdd);
  writeln('Второе задание: ', countMoreThenVal);
  write('Третье задание: ');
  if (first <> -1) then
    writeln(first)
  else
    writeln('такого элемента нет');
end.

uses crt;
var a:array[1..25]of integer;
i,b,s,a1,kol:integer;
begin
clrscr; 
s:=0;
kol:=0;
writeln('Введите число A');
readln(a1);
writeln('Ввведите 25 элементов');
for i:=1 to 25 do
begin
readln(b);
a[i]:=b;
end;
writeln;
for i:=1 to 25 do write(a[i],' ');
for i:=1 to 25 do
begin
if i mod 2<>0 then s:=s+a[i];
if (a[i] mod 5=0) and (a[i]>a1) then inc (kol);
end;
writeln;
writeln('Сумма элементов с нечетными индексами = ',s);
writeln('Кол-во элементов массива значение которых больше заданного числа А и кратно 5 =',kol);
readln;
end.

uses crt;
сonst k=20;
type t=array[1..k] of integer;
var n: t;
i, a, s: integer;
begin
for i:=1 to k do
begin
n[i]:=-30+random(61);
write(n[i]:4);
end;
i:=1;
s:=0;
while(i<=k)and(s=0) do
if (n[i]<0) and (n[i] mod 5=-2) then s:=i
else i:=i+1;
if s=0 then writeln('There are no')
else writeln('Номер=',s);
readln;
end.