Числа Фибоначчи определяются формулами f_1=f_2=1, а каждое следующее равно f_n=f_(n-1)+f_(n-2) (n≥3). Вычислить сумму всех чисел Фибоначчи, которые не превосходят 1000. ПАСКАЛЬ

Предыдущий
вопрос Следующий
вопрос

program FibonacciSum;

var
f1, f2, tmp, sumFibonacci: integer;

begin
f1 := 1;
f2 := 1;
sumFibonacci := 0;

while f2 <= 1000 do
begin
if f2 mod 2 = 0 then
sumFibonacci := sumFibonacci + f2;

end;

writeln('Сумма всех четных чисел Фибоначчи, не превосходящих 1000: ', sumFibonacci);
end.