Ответ:

var x,y,z,i,s:integer;

var a:array [1..5] of integer;

begin

 s:=0;

 writeln('Заполните массив:');

 for i:=1 to 5 do begin

   readln(a[i]);

 end;

 writeln();

 writeln('Исходный массив:');

 writeln(a);

 for i:=1 to 5 do begin

   if (a[i] mod 2 = 0) then

   s:=s+a[i];

 end;

 writeln();

 writeln('Сумма четных элементов массива =',' ',s);

 writeln();

 for i:=1 to 5 do begin

   if (i mod 2 <> 0) then

     writeln(i,'-й элемент с нечётным индексом =', ' ',a[i]);

   end;

   for i:=1 to 5 do begin

     if (i mod 2 <> 0) then

     x:=x+a[i];

   end;

   writeln();

 writeln('Сумма элементов массива с нечётными индексами =', ' ', x);

end.