const
  n = 15;

var
  i, j, sum, a, kol, max, maxi, min, mini :integer;
  
  mas :array [1..n] of integer;

begin

  writeln('Заполните массив:');
  for i:= 1 to n do
    readln(mas[i]);
  writeln('Введите число A:');
  readln(a);
  
  sum:= 0; kol:= 0; 
  max:= mas[1]; maxi:= 1; min:= mas[1]; mini:= 1;
  for i:= 1 to n do
  begin
    if i mod 2 = 1 then
      sum:= sum + mas[i];
    if (mas[i] > a) and (mas[i] mod 5 = 0) then
      inc(kol);
    if mas[i] > max then
    begin
      max:= mas[i];
      maxi:= i;
    end;
    if mas[i] < min then
    begin
      min:= mas[i];
      mini:= i;
    end;
  end;
  for i:= 1 to n do
    if mas[i] mod 5 = 2 then
    begin
      j:= i;
      break;
    end;
  mas[maxi]:= mas[maxi] * (-1);
  if maxi > mini then
    for i:= mini to maxi do
      mas[i]:= 0
  else
    for i:= maxi to mini do
      mas[i]:= 0;
      
  writeln('Сумма элементов: ',sum);
  writeln('Количество элементов: ',kol);
  writeln('Номер первого отрицательного элемента: ',j);

end.