Определить число натуральных чисел, сумма(произведение*), последовательности которых равна (или больше) 200.
2. определить номер 1 го члена последовательности 1,1/2^2,1//k^2, который меньше 0,002
языке !

1) подход учитывающий не один, а несколько факторов - например  программировать работу светофора так, чтобы были учтены  а) "часы-пик"  б) погодные условия (туман/дождь/гололед) в) централизованные сигналы (проезд кортежа президента) г) сигналы пешеходов на переходе и т.д.;
2) системный эффект - это возникновение новых свойств, которых ранее не было у  элементов по отдельности. Кроме того,  это не очевидное (не сразу заметное) влияние различных факторов друг на друга и на конечный результат - например компьютер состоит из ряда простых электронных деталей, которые сами по себе ничего не представляют, но соединённые особым образом (в структуру) позволяют  хранить  числа и программы, складывать и вычислять и в конечном итоге - моделировать реальность (в играх, например). 
3) турникет в автобусе или метро (никто не знает как он работает, но все пользуются)

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var L:=new List<integer>;
  Writeln('Вводите целые числа, окончание ввода по -777');
  var n:integer;
  repeat
    n:=ReadInteger;
    if n<>-777 then L.Add(n);
  until n=-777;
  Writeln('Исходный список'); Writeln(L);
  n:=ReadInteger('Введите искомое число:');
  var p:=L.FindIndex(k->k=n); // искомый элемент
  if p<0 then Writeln('Искомый элемент в списке не найден')
  else begin
    Writeln('Элемент ',L.Item[p-2],' удален');
    L.RemoveAt(p-2); Writeln(L); // удалили и убедились
    n:=ReadInteger('Введите число для вставки:');
    L.Insert(p-1,n); Writeln(L)
    end
end.

Пример
Вводите целые числа, окончание ввода по -777
1 6 12 73 -15 34 18 0 24 -777
Исходный список
[1,6,12,73,-15,34,18,0,24]
Введите искомое число: 34
Элемент 73 удален
[1,6,12,-15,34,18,0,24]
Введите число для вставки: 1000
[1,6,12,-15,1000,34,18,0,24]