Среди чисел последовательности 1,2,3,5,8,13...(каждый следующий член последовательности равен сумме двух предыдущих),найдите количество чисел до первого шестизначного. Помогите плиз,Паскаль авс

Ответ - 29 var     f, f1, f2: longint;     n: integer; begin     f2 := 1;     f1 := 2;     n := 2;         repeat         f := f1 + f2;         n := n + 1;         writeln(n,' - ',f);         f2 := f1;         f1 := f;     until f >= 1000000;         writeln(n - 1); end.