program sumaElemPare;
var v:array[1..30] of integer;
i, suma:integer;
begin
writeLn('introdu 30 de numere intregi:');
for i:=1 to 30 do
begin
read(v[i]);
if (v[i] mod 2 = 0) and (i mod 2 =1) then suma:=suma+v[i];
end;
writeln(' suma elementelor pare de pe locuri impare este ', suma);
end.