Найти количество членов последовательности b1,b2..bn, которые имеют четные порядковые номера и являются нечетными числами (Паскаль

[Vetal_1715]

исправить ошибки в программе

Условие
Даны натуральные числа b1, b2...bn. Найти количество членов последовательности b1,b2...bn, которые имеют парные порядковые номера и являются нечетными числами.
Программа

Program P1;
var a:array[1..256] of integer;
i,n,p:integer
begin
readln(n);
for i:=1 to n do readln(a[i]);
p:=0;
for i mod 2=0 then if a[i] mod 2=0 then
begin 
writeln(a[i]);
p:=p+1
end;
if p>n then ('nema');
end.

_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

Прошу учесть на будущее...

Модератор.

[Serge_Bliznykov]

ладно. написано хоть и безграмотно с точки зрения языка, зато виден заложенный алгоритм (и, кстати, почти верный алгоритм).
поэтому я позволил себе исправить ошибки, опечатки, пропуски точек с запятой ну и прочие нелепости.
получился такой код:

program P1;
var
  a: array[1..256] of integer;
  i, n, p: integer;
begin
  readln(n);
  for i := 1 to n do readln(a[i]);
  p := 0;
  WriteLn('trebyenye chisla: ');
  for i := 1 to n do
    if i mod 2 = 0 then
      if a[i] mod 2 = 1 then
      begin
        writeln(a[i]);
        p := p + 1
      end;
  if p = 0 then WriteLn('nema');
  Readln
end.

[Vetal_1715]

спасибо большое!!

[temaps]

Если сделать как написано в условии можно короче

program P1;
var
  a: array[1..256] of integer;
  i, n, p: integer;
begin
  readln(n);
  p := 0;
  for i := 1 to n do
begin
readln(a[i]);
if (i mod 2=0) and (a[i] mod 2=0) then p:=p+1;
end;
  if p = 0 then WriteLn('nema') else writeln('Kolicestvo iskomih chisel: ',p);
end.

И, кстати, если так делать и такой ответ нужен, то массив не нужен можно обойтись просто ещё одной переменной Integer