program laba4;
   const n = 5;
   var a:array [1..n] of integer;
   i,nn,nk,summ,sum,nnn:integer; //nn-это индекс первого найденного 0
//nk-это индекс второго найденного 0  
  begin
  sum := 0;
  for i:= 1 to n do read(a[i]);  // забиваем массив своими числами 
   for i:= 1 to n do begin  // бежим по массиву 
    write (a[i],' ');
    if i mod 2 =0 then sum := sum + a[i];  //Находим сумму элементов          //массива с четными порядковыми номерами
  end;
  writeln;
  writeln ('____________________________________');
  writeln('Сумма четных элементов массива ',sum);  
  writeln ('___________________________________');   
  for i:= 1 to n do begin  
   if a[i]=0 then begin  //Находим первый 0 в массиве 
    nn:=i; //Запоминаем позицию этого элемента 
     if nn>0 then break; // Если нашли то выходим из цикла 
   end;
  end;
  if nn>0 then begin
   inc(i);  
  for nnn:=i to n do begin  
   if a[nnn]=0 then nk:=i+n-3; //Находим второй 0 в массиве  
   end;
 end;
  if (nn>0) and (nk>0) then begin //Если нашли два 0 то...
  for nn:=nn to nk do  
   summ:=summ+a[nn]; // Складываем элементы между найденными 0
  end;
  writeln('Сумма элементов находящихся между нулями ',summ);
  end.