Сумма чётн Fibonachi_2

Подробности

Автор: Топчий Алексей

{
Каждый следующий элемент ряда Фибоначчи получается
при сложении двух предыдущих. Начиная с 1 и 2, 
первые 10 элементов будут:

1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ...
Найдите сумму всех чётных элементов ряда Фибоначчи, которые

 не превышают четыре миллиона.

}
Program Fibonachi;
var
  n, pred, pos, z, i: integer;
{n - число Ф., z - сумма,
pred, pos - предыдущее и
последующее, i - счётчик
шагов}
begin
  n := 2; {начальные
  значение}
  pred := 1;
  while n < 4000000 do
  begin
    z := z + n;
    repeat {Чётные числа
      повторяются через каждые
      два нечётных,}
      pos := pred + n; {значит, для
      перехода к следующему
      чётному числу}
      pred := n; {надо сделать три
      шага}
      n := pos;
      i := i + 1;
    until i = 3;
    i := 0;
  end;
  Writeln(z);
end.