Определить количество членов послдовательности а1, а2 имеющих четные номера и являющимися чеными числами

Var A, i, k:integer;

Begin

Write ('Введите количество членов последовательности: ') ;

ReadLn (i) ;;

Write ('Введите саму последовательность: ') ;

k:=0;

For i: = 1 to i do

Begin

Read (A) ;

if (i mod 2 = 0) and (A mod 2 = 0) then k:=k+1;

End;

WriteLn ('k = ', k) ;

End.