задача на поиск среди чисел первого положительного, (с помощью цикла) Опции

[18192123]

пользователь вводит последовательнось целых чисел, признак окончания ввода - 0. Найти первый положительный член, равный сумме трех предыдущих.

[klem4]

18192123, Сколько можно мусолить этот маразм ?! Функция, которая ищет нужный по твоему заданию элемент, если такого элемента нет, ф-я возвращает - 1.

function Find(const v: PVector; n: Integer): Integer;
var
  s, i, j: Integer;
  flag: Boolean;
begin
  i := 4;
  flag := false;
  while (i <= n) and not(flag) do begin
    if v^[i] > 0 then begin
      j := i - 3;
      s := 0;
      while (j < i) and (s <= v^[i]) do begin
        s := s + v^[j];
        inc(j);
      end;
      flag := (s = v^[i]);
    end;
    if not(flag) then inc(i);
  end;
  if flag then Find := i else Find := - 1;
end;

[18192123]

18192123, Сколько можно мусолить этот маразм ?! Функция, которая ищет нужный по твоему заданию элемент, если такого элемента нет, ф-я возвращает - 1.

мне такой способ не подходит!
в этом задании мне нельзя использовать массивы, в основе решения должен лежать цикл.
наверняка, в этом задании все гораздо проще.