const
  e = 2.718281828459045;
var
  i: integer;
  k, s: real;
  x: array[1..15] of real;
begin
  s := 0;
  k := 1;
  for i := 1 to 15 do
  begin
    x[i] := power(e, sqrt(k)) + k;
    if i mod 2 <> 0 then
      s := s + x[i];
    writeln(x[i]);
    k := k + 1;
  end;
  writeln('Сумма элементов массива с нечетными индексами равна ', s);
end.