{
Каждый следующий элемент ряда Фибоначчи получается
при сложении двух предыдущих. Начиная с 1 и 2,
первые 10 элементов будут: 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ...
Найдите сумму всех чётных элементов ряда Фибоначчи,
которые не превышают четыре миллиона.
}
program Fibonachi;
var
Sum: longint;
f, f1, f2: integer;
begin
f1 := 1;f2 := 1;
f := 0;
while F < 4000000 do
begin
F := f1 + f2;
if f mod 2 = 0 then Sum := Sum + f;
f1 := f2;f2 := f;
end;
Write(Sum);
end.