const n=10;
var
{a - наш массив. s - сумма. i - счетчик цикла.}
{c1 - первый четный эл.   cp - последний четный эл.}
a: array [1..n] of real;
s: real;
i, c1, cp: integer;
begin

// Заполняем массив
for i:=1 to n do
begin
write('a[', i, '] = ');
readln(a[i]);
end;
//

// Находим первый четный элемент
i:=1;
c1:=0;
while c1=0 do
begin
{Т.к. массив должен быть вещественным, я обрезаю число до целой части}
{Вместо trunc можно использовать round, чтобы округлять}
if trunc(a[i]) mod 2 = 0 then
c1:=i;
i:=i+1;
end;
//

// Находим последний четный элемент
for i:=1 to n do
if trunc(a[i]) mod 2 = 0 then cp:=i;
//

// Складываем числа между первым и последним
for i:=c1+1 to cp-1 do
s:=s+a[i];
//

{Выводим}
writeln('Сумма чисел между a[', c1, '] и a[', cp, '] = ', s);
end.