Дан массив целых чисел, состоящий из 15 элементов. заполнить его с клавиатуры. найти:1. сумму положительных элементов, значения которых меньше 10;2. вывести индексы тех элементов, значения которых кратны 3 и 5;3. определить, есть ли пара соседних элементов с суммой, равной заданному числу;4. заменить первый отрицательный элемент нулем;5. умножить все элементы, красные 3, на третий элемент массива — Pascal(Паскаль)

var
  a: array[1..100] of integer;
  sum: real;
  i, n, k: integer;
 
begin
  randomize;
  readln(n);
  for i := 1 to n do 
  begin
    a[i] := random(16) - 4;
    write(a[i], ' ');
  end;
  writeln;
  sum := 0;
  writeln('условие 2');
  for i := 1 to n do  
  begin
    if (a[i] > 0) and (a[i] < 10) then
      sum := sum + a[i];
    if (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then
      write(i, ' ');
    if a[i] mod 3 = 0 then a[i] := a[i] * a[3];
  end;
  writeln;
  writeln('условие 1');
  writeln(sum);
  writeln('введите число');
  readln(k);
  writeln('условие 3.если строка пуста значит пары нет');
  for i := 1 to n - 1 do 
  begin
    if (a[i] + a[i + 1]) = k then begin
      writeln('есть');
      break;
    end;
  end;
  writeln('условия 5 и 4');
  for i := 1 to n do 
  begin
    if a[i] < 0 then begin
      a[i] := 0;
      break;
    end;
  end;
  for i := 1 to n do 
  begin
    write(a[i], ' ');
  end;
end.