Определить количество членов послдовательности а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.