{
Каждый следующий элемент ряда Фибоначчи получается
при сложении двух предыдущих. Начиная с 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.